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TURBO-Forth ENCORE!!! 


4 


par M. PETREMANN 


ty aune publicité passant dernièrement à La télévision 
où un homme des Cavernes ce sjot de satisfaire Sa gourman- 
dise par des procédés risques jusqu'a ce qu'il rencontre 
une créature de rÊVE et une délicieuse friandise. Anachro- 
nisme aidant, celle-ci était en voiture (POUQE je crais). 
Le dernier plan montre cet homme visiblement insà isfait 5e 
tapant sur Le crâne en disant: ENCORE, ENCORE... C'est pré- 
cisément La réaction qe vous aurez après avoir Lu ce Cha- 
URBO-Forth. 


Vous aimez pragrannes en FORTH, mais Les blocs. vous coin 
cent. Le standard F43 de Läxen et Perry avait un besoin 
urgent d'être RU et, surtout, de pouvoir He 
Les fichiers ASCII. C'est pourquoi, En partant de La fonc- 
{ion INCLUDE diffusée dans un précédent numéro, L'idée nous 
est tout naturellement venue de créer, VOUS 5àvez quoi... 
ben TURBO-Forth vayons!. 


pitre vous présentant 


Pourquoi Le pal TURBO? Et pourquoi pas: Qu'est-ce qui à 

fait La célébrité de TURBO-Pascal? TURBO-Pascal di5p05e 

certes d'un compilateur très performant, Mmals surtout, it 

brise legs infernal ECLR (Edit Compile Link and Run). 

F8 aussi brisait Ce cycle, mais 585 possibilités d'édition 

L fichiers un peu trop exotiques rebutaient plus d'un ama- 
eur. 


taille mé- 
moire, TURBO-Forth ne fait plus que 24k. Pour vous allécher 
un peu, voici Les fonctions essentielles et nouvelles qui 
équipant TURBO-Forth: 


INCLUDE tfichiert .ext1? 

Cette fonction est réentrante et peut traiter NE 
cing fichiers (si votre CONFI6.SYS contient La Ligné FILES 
= n, où n est supérieur 38, ce nombre peut être augmenté). 
ninsi, un fichier peut en appeler un autre qui en appelle 
un autre, Le retour en fin de compilation de fichier ren” 
voie à La poursuite de La compilation du contenu du précé- 
dent fichier. ÆEn cas d'erreur de compilation, un message 
indique Le n° de Ligne et Le nom du fichier où s'est pro- 
duite L'erreur. Ces paramètres sont sauvegardés et par ap- 
pui sur La touche F2, vous pouvez passer EN éditeur ASCII 
plein écran. 


ENT 

Cette fonction est appelée automatiquement par appui sur 
F9, Si une erreur s'est produite en cours de compilation, 
L'éditeur charge Le fichier ô re et place Le Curseur 
à Là ME et colonne où s'est produite L'erreur. Exemple, 
soit te fichier TEST.FTH contenant Le très court programme: 


: pose (rs) 

00! . LOOP ; 
Gi vous compilez Le contenu par INCLUDE TEST (L'extension 
.FTH est rajoutée automatiquement; pour une autre exten- 
sion, La préciser), LE Me55aqe d'erreur affichera: 

091 . LO9P ; 901 inconnu 

DOI . LOUP : 
Ensuite, l'appui sur F2 déclenche La procédure d'édition et 
positionne ie curseur Sur La partie erronée. £UXUeUX nan? 


£t si vous vouteg utiliser votre traitement de texte favo- 
ri, mettez son nom dans La variable chaine EDITS: 


L'appui sur F2 Lance WORDSTRR, 
" WP.EXE" EDITS $! 
L'apoui sur F2 Lance WORDPERFECT 


CHOIR chemin | 

Cette fonction permet de sélectionner un autre $0US” 
répertoire FE Le sous-répertoire courant, Ainsi, 51 VOUS 
démarrez TURBO depuis Le répertoire principal, VOUS POUVEZ 
sélectionner ie répertoire contenant dBASE (pour exemple): 


GIE \0B3P 
affiche directory du répertoire DB3P 


DIR Cé:JLpathlmasq.ext) | 

Affiche Le contenu de La directory courante, y Compris 
La taitte de chaque fichier. Le seut mot DIR LE comme 
QIR #.x Toutes Les QUE et masques sont possibles COM- 
me sous M600S COIR +.C0M, DIR 1272.FTH, etc...). 


PROGRAM <prog.C0M) | 

Lance l'exécution d'un ENPIE extérieur à FORTH. 
Cette fonction peut être utilisée dans une définition com- 
pilée de La manière suivante: 

: BOUCLE 10 0 00 


CRI.I15: 
IF ‘ PROGRAM WS.COM SEXECUTE THEN 
LOOP ; 


Ce qui agit de La manière suivante: 


on + ro > 


Lancement de WORDSTAR 
. Sortie de WORDSTAR 


D æœ1m 


Les paramètres sont passés au programme appelé par PASS, 
exemple: 


“ EGSAL.FTH * PASS PROGRAM WS.CDM 
et qui équivaut depuis MSD0S à La séquence: 
WS ESSAI .FTH 


Le mot PROGRAM résout en outre une qe A 
posée et qui Concerne Un véritable FORTH travaillant dans 
tous Les segments. Avec PROGRAM, votre module principal 
peut exploiter Une HUILE de sous-modules 505 forme 
Rte En fonction de La taille mémoire disponible (0e 
366k au moins à B40k) vous pouvez héberger de un à quatre 
Feu au moins en plus du programme principal. CEpen- 
dant, Le Lancement de certains programmes exploitant "sau- 
vagement" des zones de MÉMOITE situées en denors de Leur 
segment de chargement peuvent planter votre programme 
principal. 


Mais par contre, PROGRAM n'interdit pas, bien au contrai- 
re, d'exploiter des sous-modules que par d'autres 
Langages (TURBO-Pascal, TURBO-Prolog, dBRUN, C, BASIC com- 
pilé, etc...). L'utilisation d'un sous-madute PASCAL où 
dBAGÉ germet de résoudre certains problèmes par L'emploi 
des nombres en virquie flottante exploités ii ces APCE 
es. Inversement, Si vous démarrez par Exemple SOUS dBAGE, 
vous pouvez Lancer un programme FORTH. Exemple: 


- yn programme dBASE exploite un fichier et génére un 


"ys,com" EDITS $! 
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état des données sous forme condensé dans un fichier ASCII 
(option ALTERNATE TO fichier et ALTERNATE ON); 

- dBASE Lance un programme TURBO-Forth compilé gérant par 
exemple des fonctions dau ce programme ouvre Le 
fichier contenant L'état des données AE par dBAGE; 

- Les données sont traitées par FORIH (tracé d’histogran- 
me, camembert, etc...), réalise une impression graphique et 
redonne La main à BASÉE. nn 

- dBASE termine son travail et ferme ses fichiers, 


Vous croyez que c'est difficile? Eh bien, si vous êtes ma - 
Un, pensez à programmer dBASE pour qu'il que des Lignes 
de texte directement interprétables par FÜRTH. Pour eem- 
pie, Sait un véhicule dont on désire connaître La courbe de 
Consommation annuelle de carburant et La visualiser par 
histogramme. Votre que dBASE ouvre Le fichier des 
consommations, demande Le n° minératogique du véhicule et 
l'année à éditer: 


NOMIN Numéro minéralogique, caractères 
CARBUR Quantité de cafburant en Litres, 
décimales 


numérique, 2 


Une boucle de 1 à 12, sous dBASE va concaténer une Ligne de 
texte ASCII: 


SET ALTERNATE TO HISTO.FTH 

LS SET MASK... 

STORE ‘ “ '+NOMIN+'" NOMINS #1 ! TO LIGNE 

STORE ? TO MOIS 

00 WHILE MOIS 12 ; | | 
..Sélection consommation du mois pour véhicule cou- 


nt... 
STORE LIGNE+STRCCARBUR,6,2)+" TO LIGNE 

ENDDO 

SET ALTERNATE ON 

? LIGNE 

STORE * " TO LIGNE 

SET ALTERNATE OFF 

RUN TURAO HISTD 
à partir de Là, TURBO-Forth démarre .CON 
l'exécution du mot HISTO. Ce mot ouvre Le fichier 
et y trouve La Ligne suivante: 


aie UMA 75° NOMINS $! 110.30 125.05 


avec comme jinire 


45.00 .. 


qu'it s'empresse d'exécuter, Ensuite, 
graphique, trace l'histogramme, L'imprime et redonne La 
main à dBÂSE par un Simple BYE. Ca vous donne des idées, 
hein. Et Si vous crayez que c'est tiré par Les cheveux, eh 
bien il est plus pur de tracer un histogramme sous 
FORTH ou BASE. dBASE est doué pour traiter Les données, 
TURBO-Forth est doué pour tout (pour UE RAPIDfile, Le 
petit frêre de dBASE, est écrit en FORTH). 


SEXECUTE ( 5tr ---) | 
Cette Fonction déjà connue de nos Lecteurs assidus nous 
semble tellement importante que nous L'adoptons en tant je 
mot standard (tant 1e pour Les autres versions de FORTH). 
La Une nouveauté de ce mot est d'autoriser La 
réenfrance. Lors de l'exécution d'une chaine, un mot de 
cette chaine jou lui-même utiliser SEXECUTE. Ce mécanisme 
est Limité à La capacité de La pile de données, C'est pres- 
que Le traitement de Liste en Somme... Sachant que TURBO- 
orth peut extraire une sous-chaîne par recherche de chai- 
ne, par découpage ou par sélection d'occurence, vous n'au- 
rez plus aucune peine à créer un mini interpréteur LISP, 
L060 ou ...BASIC. Exemple d'utilisation de recherche par 
occurence, Le mot ITEM: 


255 STRING AS 
" 110.30 125.05 45.00 17.55 " AS $! 
"44,35 135.70 * A$ APPENDS 


A$ 7 ITEM IYPE affiche 110.30 


HISTO passe en mode 


Transformation numérique d'un ITEM: 


A$ 3 ITEM SEXECUTE D. affiche 4500 


2 —————_—_—_—_—_——__—_—__]_—__ _—" —"—. 


Mais aussi ce genre de plaisanterie: 


" DARK WOROS BYE " A5 $! 
A$ 1 ITEM SEXECUTE efface L'écran 
ff 2 ITEM SEXECUTE affiche Le vocabulaire 


TURBO-Forth lui-même exploite SEXECUTE au HT EE Ain- 
si, Si depuis MS00S où un autre Langage CdBASE IÎI/III4, 
TURBO-Pascal, etc...) vous Lancez: 


TURBO WORDS BYE 


vous Lancez TURBO et exécutez La chaîne ju suit Le mot 
TURBO. Ainsi peut-on exploiter une sie ion entière ou 
seulement un module. Le CEE de TURBO seul affiche Le 
meny et initialise Les touches de fonctions; Le démarrage 
de TURBO avec passage de paramètres exécute immédiatement 
La fonction demandée. Le menu n'est pas affiché. 


BYE ( [c] ---) 

Bien connu par vous, ce mot a êté réécrit en assembleur. 
On peut Le faire précéder d'un paramètre one Ce 
JpAREIE peut être he en sortie de TURBO-Forth fée 

a fonction ERRORLEVEL dans un fichier .BAT par exemple. 
Pour résumer, TURBO-Forth peut recevoir des données pe 
INCLUDE ou par pesage de paramètres au démarrage; TURBO- 
Forth en renvoie par La fonction SAVE ou BYE. 


Le vocabulaire D06 à été supprimé. C'est certes discuta- 
ble, mais si Les primitives telles que (DO) ou (LOOP) 
n'ont pas été séparées du dictionnaire A Le iln'ya 
pas de raison de séparer CLOSE et (CLOSE). 


A: B: C: D: (---) | 
. Jusqu'à quatre drives peuvent maintenant être sélec- 
tionnées: : ; | 
- 2 Lecteurs disquette et un disque virtuel (option 
VDISK dans CONFIG.5YS). ; ! 
= 1 lecteur disquette, un disque dur et un disque 
virtuel (idem). 


La table CC-FORTH à été remaniée. Désormais, on ne peut 
plus compiler de codes de contrôles tel ESCAPE dans une 
Chaîne de caractères. Si dans un fichier source vous met- 
tez des tabulations, elles seront automatiquement conver- 
ties en espaces (une tabulation: un espace). 


REPLICATE ( n char ---) 
Reproduit n fois Le caractère char. Exemple: 


: BARRE 80 ASCII : REPLICATE ; 


En conséquence, Les définitions 
deviennent: 


: SPACES (5 n -- ) BL REPLICATE ; 
: BACKSPACES (Sn -- } BS REPLICATE ; 


de constantes 0, #, 2 et 3 ont été rébcrites en assem- 
eur: 


de SPACES et BACKSPACES 


CODE 0 O0 # AX MOV PUSH END-CODE 
CODE 7 14 AX MOV PUSH END-CODE 
CODE 2 2 # AX MOV PUSH END-CODE 
CODE 3 3 # AX MOV PUSH  END-CODE 


de même que pour 85, BL. D'autres primitives ont également 
été réécrites et optimisées. Deux nouveaux types de don- 
HE déclarées en tête du méta-compilateur, 2CONSTANT 
£ $ 


LABEL DO2CONSTANT W INC W INC O0 [BX] AX MOV 
2 CBXJ OX MOV 2PUSH END-CODE 
LABEL DOSTRINS WINC WINC BX AX MOV AX INC 
AX INC OX PUSH 
4 IN] AX MOV 0 # AR MOV PUSH  END-CODE 
Génération des données dans La cible: 
: PCONSTANT {S dn_--} 
RECREATE CE ASSEMBLER DO2CONSTANT 1] 
LITERAL ,-T OVER OVER ,-T ,-T 2CONSTANT : 
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STRING {Sn --) 
RECREATE LC ASSEMBLER DOSTRING Ji LITERAL ,-T 
QUP C,-T OC,-T DUP ALLOT-T STRING ; 


Création du type dans Le noyau TURBO: 


: 2CONSTANT (5 d ---) CRETE , , ;USES 
DO2CONSTANT , Lo 
TRING (on --- tnomvar$r en compilation) 
CREATE QUP C, OC, DP #1 
:USES DOSTRINE , 


Les mots de gestion d'écran tels que DARK et MODE restent 
vectorisés, mais avec une grosse différence par rapport à 
La version LAXEN et PERRY: 


CODE CAT) (6 col row -- cal row) 
AX POP  DX POP DX PUSH  AX PUSH 
AL DH MOV BH BH XOR 2 # AH MOV 16 
AT  (S col row -- } CO O est Le coin gauche ) 
_N00P 2DUP ALINE !  HOUT ! ; 
\ initialisé FE " (AT) IS AT 
VARIABLE GRMODE 
CODE (MODE) Cr --- a:=[0.,7] ) 
GRMODE #) AX MOV 16 INT NEXT C; 
: DARK (S -- 
NOOP #LINE OFF AOUT OFF ; 
Linitialisé par ? (NODE) 15 DARK 
: MODE ( n --- 
GRMODE ! DARK ; 
Le mot CAT) prend La place de NOOP dans La définition de AT 
dès que La pseudo-vectorisation est activée par La séquen- 
Ce: 


18 INT NEXT !; 


! (AT) IS AT 


Par parenthèse, Le mot 15 permet en de gérer des 
constantes sous forme de pseudo-constantes: 


1987 CONSTANT ANNEE-COURANTE 
peut devenir dans pas Longtemps: 


1988 IS ANNEE-COURANTE 
ANNEE-COURANTE . affiche 1988 


Le ET tient Die des nouveaux types de données 
2CONSTANT et STRING. Exemple: 


30 STRING A$ 
SEE A$ 


"pour exemple" À$ $! 


affiche 
30 STRING A$  contenu:paur exemple: 


Les fonctions de traitement de chaînes sont intégrées à 
TUR8O-Forth. Des fonctions d'accès mémoire et de transfert 
de blocs inter-segments vous donnent accès à TOUTE LA ME- 
MOIRE VIVEI!! 


DIFFUSION DE TURB0-Forth 
TURBO-Ferth est diffusé sous deux formes: 


- une version d'évaluation, disponible contre 10 timbres 
à 9,70fr cèd Les timbres pour expédition de 10 numéros de 
JEDL), contenant Le seul fichier TURBO.COM. Cette version 
n'est ni bridée, ni Limitée, ni plombée, ni piégée. Elle 
est disponible de suite. 


- une version développeur, comprenant Le po dt rAeeUs 
Les fichiers source de TURBO-Forth, L'éditeur plein Écran, 
La documentation et des fichiers d'exemples. La documenta- 
tion est en cours de composition, Cette version ne sera pas 
disponible avant mars/avril 1988. Nous sommes preneurs des 
extensions suivantes: 

- exécution des bibliothèques FORTRAN 

- exécution des bibliothèques PASCAL 

- accés aux fichiers dBAGE IITSITI+ 

- accès aux données MULTIPLAN 

- gestion graphique HERCULES 

- gestion Coprocesseur math.6087 
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- transmission TÉLECOPIE SAGEM (1200 bauds) 
et tout ce qui vous passera par La tête. 


Faites HAS vos Mails et participez ainsi au Suc- 
cès de TURB0-Forth 82-Standard. Et que vive Le Forth. 
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par M. PETREMANN 


Qu vu des différents manuscrits et articles dactylogra- 
phiés que nous recevons régulièrement, il nous a semblé 
urgent de vous donner AUENUES rudiments de BTLUÉEUSE 
Delta d'un bon traitement de texte n'est pas ('essen- 
tiel si votre prose doit quand même être re Sa151e par 
votre imprimeur. Si nous même ne.sommes pas très regardant 
sur vos petites erreurs, ce serait bien plus génant Le 
ju où vous présenterez un document "clef en mainñ* de 100 

300 pages à un imprimeur très pointilleux. Les conseits 
ns ici vous feront peut-être gagner un jour un temps 
précieux. 


PREMIERE REGLE, LA MISE EN PAGE 


Votre texte doit être parfaitement centré. Une marge suf- 
fisante doit être réservée pour l'assemblage des is à 
droite et à gauche. Réserver au minimum un centimètre en 
haut et en bas de page pour La prise en pince offset. 


Si votre traitement de texte Le permet, cadrez toujours 
votre texte à droite et à gauche, même pour un courrier. 
Votre correspondant comprendra ainsi que vous disposez 
d'un matériel performant et que vous savez vous en servir. 


L'indentation de La première Ligne de texte ALTO 
phe ou alinéa est à réserver pour votre courrier “à La 
française". Ouvrez un Livre, n'importe Lequel, et regardez 
si on indente La première Ligne, ... vu?! 


LA NUMEROTATION DES CHAPITRES 


Le système de numérotation est laissé à La discrétion du 
rédacteur. Cependant, quelques règles prédominent: 


1) La numérotation 150. On découpe Les chapitres en 
sous-chapitres repérés par des chiffres arabes séparés par 
un point. Exemple: 


Ati use D us 14 
2. 
2.1. 

2.1.1. etc... 


2) La numérotation typo: 


On évite de définir plus de cinq niveaux de numérotation. 
Dans ce cas, L'indentation du sous-chapitre est acceptée. 
Selon Le traitement de texte utilisé, on peut mettre en 
valeur Le numéra du chapitre: 


1) LA HART] Ujhjh & oitot upiyp nbnb,n Ljk jjg 


hjh gh jj jhjh jhjhg j1g.  (< est toléré. 


1 jhgfkh jjkhgfkj Ljhjh 8 oitot 
RoË 33 JA 


jh 6 oitot upiyp nbnb,n Ljk 
ME hjh gh jj jhjh jhjhg jjg. 


j {€ est souhaita- 


NUMEROTATION DES PAGES 


Une page est TOUJOURS numérotée avec Le numéro impair à 
droite, Le numéro pair à gauche. Exceptionnellement, Le 


numéro peut être placé au milieu du bas de page. Si votre 
document sera diffusé par photocopie recto seulement, Les 
numéros serons placés exclusivement à droite. 
Un cartouche de haut ou de bas de page peut 
Libellé du chapitre ou du document. 


PLACE DE LA PONCTUATION 


Les points, Les points-virgule, points d'interrogation-ex- 
clamation, paints de suspension, double-points sont TOU- 
JOURS accolés au mot qui précède. 


EXEMPLE:  (( QUI 
EXEMPLE :  C< NON 


C'est pourtant simple, imaginez que vous écriviez un rajout 
en plein paragraphe, votre EXEMPLE séparé des deux-points 
deviendrait en fin de Ligne: 


rappeler Le 


.… Ligne de texte... EXEMPLE 


ce serait moche. 
Une parenthèse ouvrante est RTBLUE accolée au mat qui 
suit, une parenthèse fermante au mot qui précède: 


[Ndir: np {{ QUI 
€ Odtr: jhkjh Kjh } €< NON 


Il en est de même pour Les crochets et Les accotades (nor- 
malement inutilisés en typographie dans un texte à carac- 
tère Littéraire). 


LES VEUVES ET LES ORPHELINS 


Tout paragraphe de plus de 3 Lignes situé en bout de page 
doit autant dE possible ne pas être séparé de sa Ligne de 
fin, idem en début de page suivante pour La Que ligne 
de RRQ Ces Lignes isolées Sont appelées veuves et 
orphelins, Si un paragraphe doit se poursuivre sur une Li- 
gne suivante, on passéra au moins Les deux dernières pe 
M 13 page Suivante. Il en est de même pour un début de 
chapitre. 


Dans Le cas de citations ou d'exemples, on verrouille La 
Ligne faisant référence à La citation concernée en un bloc. 


... pour exemple: | 
hafih ichffi | verrouillage du bloc 
Jin jgnfT] = 


ceci bien entendu si votre traitement de texte dispose de 
La fonction de verrouillage de bloc. 


LES CESURES BE MOTS 


Un mot est toujours coupé en fin de sine entre deux 5yl- 
La- bes. Pour rappel, une syllabe se termine généralement 
aprés une voyelle accentuée ou entre deux Lettres jumelées, 
après une voyelle autre que E suivie d'une consonne, Cer- 
taines consonnes regroupées à La voyelles LE AE et 
formant ainsi un groupe phonétique (EN ON UN OIN...) sont 
Coupés après La consonne: 


b- gli- 5e 

ex- cla- ma- tion 

ta- bleau 

car- ré 

Con- S0n- ne 
etc... 


On évite autant que possible de Laisser une Lettre isatbe 
en fin de Ligne: on évitera é- glise au profit de égli- 5e 
ou église. Le cas particulier de La Lettre x est équivalent 
au groupe ce (c'est pour cette raison que Le E de “exemple" 
n'est pas accentué"). 


LES ABREVIATIONS: 


En dehors des terminologies scientifiques et techniques 
particulières, sont admisés Les abréviations suivantes: 


ex: pour exemple (et non par exemple) 
n° numéro 

etc et caetera | 

Ndlr note de La rédaction (réservé à La rédaction) 


En respectant ces quelques ME vous ferez gagner un 
temps QE à ceux qui exploiterons votre Je Un 
texte bien tourné est apprécié, mais bien tapé il évitera 


à votre éditeur L'éruption de boutons purulents provoquée 
par Les coquilles défraichies. 


É ACCES QUX COMMANDES 005 | 
par Ÿ. SURREL _ 
Cher Secrétaire 

Comme promis je vous envoie Le api mots perRE Ian 
d'avoir accès aux commandes D0S à partir du FORTH. La syn- 
taxe est très simple; pour exemple: 

LV DIR A:: SORT :MORE)PRN" 
en mode direct, ou: 

: NICEDIR !" DIR A::SORT:MORE)PRN" ; 
en mode compilé; à noter que: 

!* COMMANDO" 
renvoie dans L'environnement DOS, avec 
prompt (ex: A:1)), comme 5i L'on était sorti du FORT 
revient à FORTH en faisant: 

A: LEXIT 


et L'on récupère notre bon “ok° forthien. 


Fe c 
,. On 


J'espère que ce programme vous intéressera. Amicalement. 
Y. SURREL 

LISTING: 

{ Commande SHELL pour D0S } y 2,0 - Y. SURREL / 2-12-87 ) 


{ La manière TA Le processeur de commande est ex } 


| ALL "DOS version 3.00 TECHNICAL REFERENCE"  ) 
LE 


ONLY FORTH ALSO DÉFINITIONS 
HEX 
CODE SETBLOCK (5 -- ] 

BX PUSH 

1000 # BX MOV 

4A # AH MOV 

21 INT 

FFFF # BX MOV 

48 # AH MOV 

21 INT 


BX POP 
NEXT ; 


CREATE NOMFICH 
;" C:COMMAND.COM* 0 , 


CRERTE PARAMBLOCK 
D,0,0,5,0 


COBE EXEC (5 -- ) 
BX PUSH 
BP PUSH 
SI PUSH 
CS AX MOV 
AX PARAMBLOCK 4 + 
AX PARAMBLOCK 8 + 
AX PARAMBLOCK 2+ 
4800 # AX MOV 


60,0, 


# 
4 
ô 
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NOMFICH 1+ # DX MOV 
RDS # EX MOV 


DECIMAL 


: (1) {S add Len -- } 
TUCK {S Len add Len ) 
PAD 3 + PLACE {S Len } 
" {CC * PAD PLACE (5 Len } 
3 + OUP PAD C! {5 Len’ ) ; 
4+ PAO + 13 SWAP C1 ( CR au bout de La chaine ) 
PAD PARAMBLOCK 2+ ! 
ee { initialise 2ème mot de PARAMBLOCK ) 


Eh {5 --) 
SETBLOCK 
STATE @ 
IF 


[COMPILE] * 
COMPILE (1°) 


ELSE 
AéÇUI " PARSE {S add Len ) 
THEN : IMMEDIATE 


{ Commande SHELL qu 006 > v 2.0 ) 
ONLY FORTH ALSO DÉFINITIONS 


HEX 

CODE SETBLOCK (5 -- ) 
BX PUSH 
1000 # BX MOV 
4 # BH MOV 


21 INT 
FFFF # re 


CREATE NOMFICH 
," C:\COMMAND.COM° 0 , 


CREATE PARAMBLOCK 
0,0,0,5,0,6C,0 
CODE EXEC (5 -- ) 
BX PUSH 
BP PUSH 
SI PUSH 
CS AX MOV 
AX PARAMBLOCK 4 + #) MOV 
AX PARAMBLOCK 8 + #) MOV 
AX PARAMBLOCK 2 + 8 + MOV 
4800 # AX MOV 


NOMFICH 1+ # DX MOV 
PARAMBLOCK # BX MOV 
21 INT 


NEXT C; 
DECIMAL 


: (0) (5 add Len -- ) 
TUCK {S ten add Len } 
PAD 3 + PLACE 


" JC " PAD PLACE 

3 + OUP PAD C! Le 

4+ PAD + 13 SWAP C! € CR au bout de La chaîne ) 
PAD PARAMBLOCK 24 ! 

_—. (initialise 2ème mot de PARAMBLOCK } 


HALL {5 -- ) 
SETBLOCK 
STATE @ 


F 
[COMPILET * 
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COMPILE C1") 
ELSE 
ASCII “ PARSE (S add Len ) 
THEN : IMMEDIATE 
quIT 


Ndlr: sincères remerciements de La part des Lecteurs de 
JEBI pour votre très intéressante routine. A noter que 
Li TURBO-Forth, une variante a êté implantée, nommée 


"string" SHELL 
exemple: 
DIR *#.COM" SHELL 


LES NOUVEAUX LANGAGES 
ET L'EXEMPLE D'HYPERTALK 


par J.PERRET 


Périodiguement apparaissent de "nouveaux cnrs de pro- 
pan qu soit 5e HÉUE comme des extensions 

‘anciens (FORTH ou € ou PASCAL “orienté objet"), soit 
passent totalement nouveaux (PROLOG?). L'amateur de 

angages se précipite sur Sa Littérature favorite et y 
découvre des choses pouvant aller de que copies 
d'écran avec La Liste des instructions à des articles plus 
sérieux illustrés d'exemples. IL y manque Souvent Le prin- 
cipal, à savoir: 


- qu'est-ce que ce Langage core de neuf, c'est à dire 
quels sont Les nouveaux Concepts? 


Un nouveau Langage doit inciter son utilisateur à Les uti- 
Liser Les concepts) et ARR {doucement ou ferme- 
ment) de faire du BASIC en PASCAL, du PASCAL ou du FORTRAN 
en LISP, du Cen C++, etc... qui est La pente naturelle de 
tout programmeur. 


de voudrais illustrer celà à L'aide du cas d'Hypercard, un 
générateur de programmes muni d'un Langage orienté objet 
appelé Hypertalk et destiné aux heureux possesseurs de 
Macintosh (MacPlus et supérieurs). 


Contrairement à ce que j'ai lu, on peut très bien faire 
des essais avec un MacPlus et un seul Lecteur. Evidemment, 
un disque dur est fort utile mais pas indispensable pour 
faire quelques essais. 

Un Lnqags orienté ques permet de regrouper dans une même 
entité (l'objet) des données et des He ou métho- 
des. Des mesages sont échangés entre Les objets et L'uti- 
Lisateur, Chaque objet s'occupe des messages qui Le con- 
cernent (pour Lequel il Rs une méthode). À tout mo- 
ment on peut ue un 0 je obtenu par copie et modifi- 
cation éventuelle d'un 0 jrs, Le premier concept de La 
programmation Dee me semble être un anti-concept: dis- 
parition de La séquence (adieu Les numéros de STE Au 
fait, Les tableurs ne seraient-ils pas Les ancêtres des 
L.0.0? (Exercice mental: ressortez votre vieux VISICAL de 
La poussière et regardez-le comme un L.0.0). 


Mais il y à mieux: si un objet ne sait pas quoi faire d'un 
mesage, it Le passe à son père (ou à Sa mère, je ne sais 
pa5) ce qui permet une hiérarchie des traitements. 
Hypercard permet de manipuler (au moins) 4 sortes QUES 
des piles qui contiennent des boutons, et des champs. Cha- 
que me passède certaines caractéristiques pee et un 
see sorte de Scénario décrivant dans Le Langage 
Hyper alk Les réponses à donner aux messages. Les MESSages 
peuvent être écrits par L'utilisateur dans une ‘boite à 
message" au déclenchés par diverses actions (l'appui sur 
qn quan par exemple). L'emploi de La souris en est très 


Prenons L'exemple d'un chirurgien désirant se faire un 
fichier sur différents types d'intervention. IL crée une 
pile ‘interventions" par simple clonage de La pile-mère 
DRpeLée Home-stact) AS orne d’un superbe dessin repré- 
sentant unle) patientie) (des accessoires de dessin Sont 
fournis mais on seul aussi CRÉDÈPEE des images provenant 
d'autres applications). Il se fabrique ensuite un modèle de 
fiche ‘intervention" avec des champs pour Les commentaires, 
tes mots clés, une zone de dessin, tout cela très simple- 
ment en choisissant dans un menu. Il y enregistre sa der- 
nière opération du genou qu'il baptise ‘genou' Ctout objet 
créé se LCR ER E IR ET d'un numéro d'identi- 
fication, mais on peut aussi Lui donner un nom). Si cer- 
tains champs, dessins, boutons doivent être comauns à d'au- 
tres cartes, on Les crée sur une "carte de fond' 
(background), La carte ne contenant que Les données spéci- 
fiques. Jusqu'ici, celà ressemble fort à L'utilisation d'un 
logiciel de création de fichiers en beaucoup plus souple. 
IU revient ensuite à sa première fiche (celle du dessin du 
patient) et crée un bouton invisible qu'il place “sous Le 
genou. Le script de ce bouton sera: 


on mouselp 
go to card ‘genout' 
end mouseUp 


Ce qui se traduit à peu près par: 


à La DER du mesage "bouton de La souris appuyé puis 
relaché" aller à La carte... 


C'est aussi siaple! Tout est Anar tement enregistré et 
opérationnel, on peut essayer immédiatement: 


on clique sur Le genou et hop! La fiche genou apparait!! 


Il reste à améliorer La carte "fond' en ajoutant des bou- 
tons permettant de créer une nouvelle carte, de passer à La 
suivante, La DÉLQUS La première, de trouver une fiche 
par mot clé. Chaque bouton peut être illustré d'un dessin 
i que icone rendant sa fonction plus évidente qu'un Long 
aration. 


Ce genre d'exercice de création prend environ une heure. En 
fait, il peut prendre beaucoup plus, car on s'amuse à a jou 


COURRIER: GEM et FORTH 


Jde Chercie ces renseignements pu utiliser 6EM 
avec FORTH sur mon PC ainsi que La mise en place 
d'un FORTH multi-tèches Un mots s'exécutant er 
parralléte: implémentation de sémapacres) 

Gilles CASTET 


question et nous La posons 
lt un adhérent qui jcanche sur Le 


Réponse: très bonne 
Égaemens. *-a-t 
p'oblème?... 


SRUC I SSONAGE 


renvoi C'une fin d'article enciave dans ur autre 


COURRIER: 


Evitez Le 


articie à une autre page dans ur autre contexte 
(saucissonage). La 'evue Sécectior du Reacers Digets 
procéde ainsi. C'est HORRIPILANT!I. Exemple de mise en 
page: ELERTOR, 3 ou 5 photocopies et L'article est complet. 


Tentative de communication par messagerie Minitei: 


3613: ‘op cher pour L'exptoitant 

3615: trop cher pour l'usager (interdit aux PTT) 

DXXXX.EX.EX MICFSE"veur MOND-8cCÈS, Dès Ge 
FQUE d'encombremen:. 

3614: Cibre service pour tes ee des P:T 

peu cher, 0,37 Fr à tarif rouge 
0,19 Fr à tarif biei 
: 0,13 Fr à tarif bleu nuit 

tarif dégressif du téléphone. 


dia. oque, 


ter des boutons plus ou moins utiles, à illustrer La car- 
te, etc... On peut copier une carte, un bouton, un fond 
un dessin d'une autre pile avec 5es caractéristiques et 
son script, qu Les éditer. Tout celà sans (ou presque 
Sans) taper La moindre Ligne, mais en dessinant, défor- 
amant, en choisissant des options dans des menus "à La 
Mac". IL est jisnre d'obtenir facilement une “interface 
utilisateur" très simple. Un bouton illustré d'une main 
jetant une fiche à La poubelle se passe totalement d'ex- 
plications. 


Peut-on faire autre chose que des agendas, des fichiers et 
des nénos”? 


On peus très facilement écrire des petits didacticiels 
(quel horrible mot) ou des nini-tableurs spécialisés. On 

pes s'écrire un lanceur d'applications personnalisé à son 
inder. 


Peut-on écrire un Jim expert? Un truc-assisté par 
ordinateur? Quelque chose de carrément nouveau (et de 
préférence utile)? Je cherche... Si vous avez trouvé... 


Réfrences: bibliothèque rene cité Mac sur Calvacon. 
Un exemple de carte. Au milieu La palette des instruments 
avec en haut et de gauche à droite: 


main à tester Les boutons 
ji | à manipuler Les boutons 
ou 


à 
'outi 
outil à faire Les champs 


| 
( 
L 


l'outil à manipuler les boutons 
lautit à fatre les champs 


Boite aux cettres 3514 code RTE. 
Feiransmis av sec'étaire/président. 


Tout courrier sera 


Mon avis: L'hébergement Sur serveur est dangeureux, 
de PSS Liè par contrat au Serveur qui 5e réserve te 
droit É‘utlliser Le nom en cas de défailiance de 
L'aéberce, RUE H6 créé pa3® HEBSOGICIEL, 

‘es mains de CANA 4, 


tombé entre 


Erik FORGE" 
82320 CHATILLON SOUS BAGNEUX 


Réponse: Le renvoi d'une fin d'article est parfois chose 
nécessaire 51 on ne veut pas gaspiller de Le piace. Sans 


te Saucissonage, JEDI devrait DARISE è où pèges de 
plus. Ceci dit, nous ne Le faisons qu'en dernière 
extrémité. 


suite page ‘0 
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Cher secrétaire, 


La Lecture du n'38 et de votre réponse à mon courrier | 
incluse m'a rassuré. Et je Souhaîte Longue vie à “JE0 
LUS L'oubli". Vous trouverez ci-joint mon réabonnement 
en retour. 


Sur un autre jo votre idée d'un "Turbo-Forth® est trés 
séduisante. Mais je pleure des Larmes de sang de ne 
UE que d'un 6809 qui ne digère pas L'assembleur 
8046/88. Ne pourriez-vous transposer Celui-ci en Forth? ou 
en, assembleur Forth/6809? ou en assembleur Forth/64000 
(bien sûr très voisins)? ou, enfin, donner une définition 
PRIE des 3 mots (OPEN-F) (CLOSE-F) F-BET telle que 
Les "Non-PC' puissent bénéficier de votre ingéniosité bien 
connue sans être obligé pour cela... d'acheter de 
L'asiatique! 


Je vous rappelle à ce propos FE nombre nan négligeable 
d'adhérents Jedi dispose de 6809 ou de 68000. Et à ce 
titre, si L'on veut fixer tout ce monde Là, ne pourrait-on 
tenter de donner dans chague cas où l'assembleur est 
indispensable, pour des raisons de rapidité, soit une 
version du mot dans chaque grand assembleur, soit une 
version Forth , a charge pour chacun de retransposer dans 
son assembleur personnel? Je pose La tn et promets, 
pour ma part, de Le faire dans Les petits trucs que je vous 
enverrai. 


ñ transposent sans difficulté, mais 
en Suls A UNE LL {et encore très 
orth- | 


Bien sûr 
moi... 
mal) que L'assembleur 


Les génies 


Bernard C. LAMBEY 
34070 MONTPELLIER 


Amicalement. 


Réponse: 


En Forth deux écoles s'affrontent: ceux qui veulent écrire 
Le maximum en FORTH (certains sont allés jusqu'au LIT en 
Forth): ceux qui veulent un rendement maximum, donc un 
Forth tout Langage machine (cas du Forth CANON 07). Pour 
ma part, je me situe entre Les deux, n'utilisant 
L'assembleur que par nécessité. Et dans Le cas de INCLUDE 
diffusé dans Le n°38, Les mots (OPEN-F) (CLOSE-F) et F-GET 
me semblent assez explicite pour ne pas VOUS embarrasser 
d'une Littérature trop abondande: 


(OPEN-F) ouvre un fichier MSDOS. Pour vous, sous FLEX, il 
faut connaître La routine à activer au niveau du 005 pour 
renplir La même fonction. Si votre FORTH dispose du mat 
CALL, taper adr CALL en enpilant ou en chargeant au 
préalable Les registres ou Les adresses avec Les paramêtres 
adéquats (adresse de La chaîne de descipteur de fichier...) 


(CLOSE-F) ferme Le fichier. Sans autre commentaire. 


F-GET est équivalent à KEY, à ceci près qu'il Lit un 
caractère depuis Le fichier précédemment ouvert et non 
depuis Le clavier. En outre, La revectorisation de KEY sur 
cette nouvelle fonction introduit Les caractères saisis 
directement dans Le TIB. 


Connaissant Le FORTH 6809 sur THOMSON, je puis affirmer que 
toutes Les fonctions équivalentes Sont déjà implantées, 
reste à revectariser judicieusement KEY. 


Mais plus qu'un simple problème de traduction 
FORTHIassembleur et inversement, c'est Le proie du DOS 
et de La gestion mémoire qui se pose. En effet, Turbo- 
Forth peut ouvrir plusieurs fichiers en même temps à 
condition de sauvegarder Les paramètres (voir HANDLE) de 
ces fichiers, ce qui ne peut être réalisé de manière 
identique Sous FLEX, CPIM ou DOS-FORTH-THOMSON. La 
puissance de Turbo-Forth est düe en partie aux 
caractéristiques de MSD0S. Conséquence: Turbo-Forth ne peut 
être disponible que pour tes systèmes IBM et compatibles. 
Si un programmeur pat l'adapte à un autre système 
(ATARI par Puemple), le choix des primitives Roses et 
peut-être aussi Les caractéristiques. L exploitation des 
ressources du système est à ce prix et est aussi Une des 
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raisons de La difficuité à conserver un standarë. 


TURBO-Forth reste standard, c'est 
CPP IEEE de toutes Les primitives 
FORML n'a pas été modifié. Exemple: 


à dire que Le 
définies par Le 


n SPACES affiche n espaces 


pourtant, La définition de SPACES dans Turbo-Forth à été 
modifiée: 


: SPACES BL REPLICATE ; 


car Le standard ne précise pas qu'une définition de mot 
standard doive être écrite avec des mots standards. Voilà, 
et s'il vous prenait l'envie de nous envayer un programme 
pour 6809 ou 64000 intraduisible en Turbo-FORTH, nous ne 
je DPRNSeTANE pas à sa diffusion (surtout s'il est 
génial...). 


M. PETREMANN 


SN oo 00 VU 0 Lu | 
FONCTION HORLOGE ET CALENDRIER | 


par Yves SURREL 
pour TURBD-Forth 
F83 Laxen et Perry MSO0S 


Cher Secrétaire: 


Voici un certain nombre de mots pour F83 standard 
permettant de gérer la fonction neLnns des PCs. [Il y à 
d'abord Les primitives (TIME) et (DATE) en code machine 


qui appellent Les interruptions 2Ch et 28h. 


TIME Laisse sur La pile un nombre double pas bgal au 
nombre de centièmes de secondes écoulées QU zéro 
heure. HH:MM:6S,CC Le ce nombre et Laisse l'adresse 
et La Longueur d'une chaîne de caractères formatée. 


TIMES couple Les deux mots précédents, et .TIME affiche 
L'heure. Le mot .INTERVAL prend deux nonbres double 
précision di (début) et d2 (fin) du type laissé par TIME 
et affiche La durée séparant d1 et d2. Exemple 
d'utilisation: 

:: TIME 60000 O DO LOOP TIME .INTERVAL ; 
On obtient 00:00:01,04 avec un AMSTRAD PC 1512. 


GATES Laisse l'adresse et La TN d'une chaîne de 
caractères contenant La date, et .DATÉ l'affiche. 


Enfin, je vous propose Le mot SISCREEN qui affiche 

directement à L'écran une chaine de caractères avec un 

attribut contenu dans La variable ATTR. 

Selon sa Tan vidéo, il fautra mettre fH100 au 

Lieu de 68800 dans VIDEO RAM, Ce mat me sert pour définir 

La tâche de fond TICTAC qu affiche L'heure en permanence; 

n'oublions pas que Le FORTH est multitèche! À noter que: 
BACKGROUND: TICTAC BEGIN 25 0 AT .TIME AGAIN ; 

plante La machine... 

Pour Lancer TICTAC, faire MULTI puis TICTAC WAKE. 


Amitiés. 
LE LISTING: 


{ Programme pour afficher La date et L'heure 
\ CC) Yves SURREL Décembre 1987 


ONLY FORTH ALSO DÉFINITIONS 


HEX 
CODE (TIME) €S -- hhmm 55CC ) 


2C # AH MOV 24 INT | 
CX PUSH À ch: heure; cl: minutes 
DX PUSH \ dh: secondes; dl: 1/1005 
NEXT C; 
CODE (DATE) {S -- gaaa mmgg xx0j ) 
êA # AH MOV 22 INT 
CX PUSH \ cx: année . 
DX PUSH { dh: mois; dl: quantième 
AL PUSH Val: jour de La Semaine 
NEXT C; 
DECIMAL 
: TIME (S -- à ) | durée depuis minuit en 1/1005 
(TIME) (5 hhmm 5$cc ) 
256 /M0D {5 hhmm cc 55 ) 


100 # + (S hhmm cc ) 
5)0 (S hhmn dec } 
ROT 256 [MOD {5 dec mm hh ) 
60 * + {S dec mm ) 
6000 UM+ (S dce dec } 
D+ ; 
: HH:MM:66 CC {5 d -- add Len } 


\ fornattage de d en centièmes 
BASE @ 8 


@ 
{# DECIMAL # # 
ASCII , HOLD 
# 6BAE !f 
ASCII : HOLD ; 
DECIMAL # 6 BASE ! # | Minutes 
ASCII : HOLD 


\ Centièmes 


\ Secondes 


DÉCIHAL ah \ Heures 
) 
R) BASE | 
: TIMES (5 -- add Len ) 
TIME HH:MM:6S,CC ; 
: TIME (6 -- ) 
TIMES TYPE ; 
: .INTERVAL (S di d2 -- ) 


2SWAP D- HH:MM:SS,CC TYPE ; 


CREATE DATE 11 ALLOT 
ASCII - €, 2 ALLOT 
ASCII - €, 4 ALLOT 


: HOMEM (Sn add -- add+3 ) 
1 Convertit n en 2 UE à l'adresse add 
GHAP 0 (8 # # #» 2 PICK SWAP CMOVE 3 + : 


: DATES (S -- add Len ) 
BASE @ DR DECIMRL 
(DATE) 


15 AND . 

CASE 0 OF * Dimanche * ENDOF 
1 0F " Lundi "  ENDOF 
2 OF ‘ Mardi ‘  ENDOF 


3 OF * Mercredi * ENDOF 


4 0F * Jeudi ‘  ENDOF 

3 OF * Vendredi " ENDOF 

6 0F * Samedi " ENDOF 
ENDCASE 


"DATE OUP 9 BLANK SWQP CMDVE 
256 IMOD SWAP [ "DATE 9 + } LITERAL 
Hi #HIMEN | Quantième 

} 

0 (4 #S #) R) SWAP CMOVE | Année 
Ri BASE ! 

"DATE 19 ; 


: QAIE (5 -- ) 
DATES TYPE : 


VARIABLE VIDEC_RAM 
HEX  B80C-VIDEO RAN ! 


VARIABLE ATTR 2 ATIR : 
V Actribut d'affichage: encre verte 


DECIMAL 


EN 


\ Jour de La semaine 


*,'ABC'C "1441 


CODE H3SCREEN (5 adc Len n -- ) 
\ Affiche La chaine de caracteres définie par add et Len 
\ à La ACL n de l'écran 
DI POP \ destination... 


DI SHL \... 2x à cause des attributs 

CX POP \ nb d'octets à afficher 

fx POP À source... 

SI PUSH V... mais il faut sauvegarder 
AX SI MOV sys GT 


VIDEO _RAM #) AX MOV | segment destination... 
AX ES "MOV 


1... dans ES 
qe #) AX MOV \ attribut d'affichage dans AX 


{ 00 ) HERE | 

BYTE MOVS À SI et DIT s'incrémentent de 1 
AL ST05 \ OI s'incrémente de 1 

LOOP ! 

GI POP \ restauration de SI... 

DS AX MOV joe, sert 

AX ES MOV \ .., de ES 

NEXT C: 


BACKGROUND: TICTAC 
BEGIN PAUSE TIMES 69 S)SCREEN AGAIN ; 


RECREATIONS APL 
LES TOURS DE HANOI 


a à 


par F, ESPINAGSE 


Le problème des Tours de Hanoï est une amusante 
application de La récursivité pour Les Langages supportant 
cette fonctionalité. Citons Les plus connus par ordre 
alphabétique: APL, Les BASICS structurés (QuickBASIC, 
TrueBASIC), FORTH, MODULA-2, PASCAL, PL1. Un grand absent: 
FORTRAN (Ndir: ah, bon! et COBOL?...). 


Le RUE du jeu est bien connu: on dispose de trois 
socles À, B, C. Sur l'un d'eux sont empilés un certain 
nombre de disques de diamètres décroissants de bas en 
haut. On doit déplacer La pile sur un autre socle en 
procédant RELRE LL disque et en utilisant Le 3ème socle 
comme Intermédiaire. À aucun moment un disque quelconque 
ne doit supporter un disque d'un diamètre supérieur au 
sien. 


L'ALGORITHME 


Là solution 5e trouve assez Simptement en remarguant qi 
pour déplacer une pile de N disque de Ren 8, il suffit 
(et il faut!): 


1) déplacer une pile de N-1 disques de À en € 
2) déplacer Le disque N de A en B 
3) déplacer une pile de n-1 disques de [en B 


Ces trois étapes sont obligatoires. On saura donc déplacer 
une pile de N disques si L'on sait déplacer une pile de N- 
1 ques On écrira donc une fonction DEPLACE, qui el 
deux fois S'appelle elle-même. Chaque fonction appelée 
5'appelle elle-même deux fois, etc... 


€ O1 N PEPLACE A:010 

© {3 DI0#1 

CU 2] AF'ABC'LA 

[ 3] +(0=N)/0 

[ 4] +(O=A/hE 4 2 3i/ERR 

[  S] +(v/2#0A)/EPR 

CO 6] ©N-L:DEPLACE ‘ABC'C' {4h 6-+- A] 
D 71 ‘ DEPLACER LE DISQUE ‘,(1 O 8N),' DE 
© 8] (N-A2DEPLACE ‘ABC'CC6-+/A), “190] 
[ 93 +0 

£ 407 EFRS'DEPLACE! erreur de données 


",C'ABC'C1+A1)," 


On est chaque fois ramené au probléme précédent... mais 
avec un disque de moins. De proche en proche, on arrive au 
déplacement d'une pile de zéro disques, qui ne pus pius 
de gros ARIERe ge manutention. Ce Cas 65 traité dans La 
ligfe [3] qui fait tout simplement sortir de La fonction 
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appelée. 


quete mots sur La fonction DEPLACE: L'appel de La 
HE jon pour faire passer une pile de 3 disques de 8 en C 
s'écrira 


3 CEPLACE ‘BC' 


L'argumæent gauche de La fonction doit être un nombre entier 
et l'argument droit une chaîne de 2 caractères choisis dans 
A, B,C. La Ligne (21 AE dans La variable A Les indices 
des Soctes de départ et d'arrivée qui doivent être éLéments 
de {1,2,3], ce qui est vérifié à La Ligne C4). La Ligne C5) 
vérifle que ces indices sont bien au nombre de 2. En cas 
d'erreur on Se branche à La Ligne (101. Les Lignes [6], 
(72, (83 sont Les trois Lignes "opérationnelles" de La 
fonction qui réalisent Les trois étapes décrites plus haut 
et effectuent Les appels récursifs. 


Sérautenent de La fonction DEPLACE: 


3 DEFLACE ‘EC’ 


DEFLACER LE DISQUE i DE K EN C 
DEFLACER LE DISQUE 2 DE B EN A4 
DEFLACER LE DISQUE 1 DE C EN À 
DEFLACER LE DISQUE 3 DE B EN C 
DEFLACER LE DISQUE 1 DE À EN BE 
DEFLACER LE DISQUE 2 DE À EN C 
DEFLACER LE DISQUE 1 DE B EN C 


à taille des piles en nombre de disques n'est 
héoriquement pas Limitée. Al comme nous allons 
e voir, Le nombre d'opérations bLénentaires croit 
exponentiellement avec Le nombre de disques. Le nombre 
d'appels récursifs croit dans Les mêmes proportions, ainsi 
ve La mémoire vive occupée. Il y aura donc nécessairement 
es limitations physiques. 


L 
t 


Un aspect intéressant de notre raisonnement see 
est qu'il permet de montrer que La solution décrite est 
optinun en nombre de déplacements élémentaires et de 
calculer ce nombre. En effet, noous saurons déplacer de 


03 HANOL:O10: À: Ds NO: Ti: Tes T3 L3 Ls LL: M: NC 
1] n Fonction appelde: DEPLACE 

21 e01061+NC+0 

3) ‘PROBLEME DES TOURS DE HANNOI' 

4) "TROIS TOURS À B et C' 

5) De 259 TOUR DE DEPART: ‘ 

6) ++De1+254D)€'RABC')/DLC-1 

71 067254 TOUR D''ARRIVER: ‘ 

8) +1-CA6e1#2500) € 'ABC')/DLC-1 

91 + A=D)/QLC-2 

101 R£EiDe"25t' NOMBRE DE DISQUES: * 

111 NOtite2540 

121 +NO(10)/0K 

13) ‘NOMBRE DE DISQUES TROP GRAND" 

14) +R 

453 OKt'' 

161 TLE TS T3610 

173 2'T', (8 ABC‘ LD), ‘uNO' 

181 MECNO, 3)60 

2'Mi',(ts "ABC LD), Je N0" 

201 161 

21) DEBiLe" 
221 Lel,' 
23) LeL,' 
24) L 

25] +(CiteM)216+1+1)/DEB 

26] ‘ *,63e0AVC 2061 

27] (420! '},'A',tètet ‘1,'B'.C2te" ‘),'C' 


281 À (180 Q O © O 0 1)\a063, NO)eU NOT 1 © 8DTI), (NO 1 Q S@T2), NO 1 O 50T3 üne seyie 


Da t  -— -— --- 
301 nn" C2 


32] ‘ Presser une touche pour chaque déplacement" 


341 NO DEPLACE D,A 
353 ‘ ET VOILA !° 


mA NN RNPNONONMOMNMMNNRNnNANNP PR mMmmA Em 
res 
wo 
Led 
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*,C9#8LL),LLeti © 8M131)9,(M134)60AUC2243),((9-M1340" ") 
1,(946LL).LLe(1 © SMCI:21), (MEL: 2e0AVC2213),((9-M1:23)e ‘) 
*,(9#@LL},LLEC1 O 3MC1:31),CMCI: 3)0DAUC224),C(9-M1:33)6" ‘3 


manière optimale une pile de N disques 5si nous savons 
déplacer de manière optimale une pile de N-1 ones car 
La procédure décrite par Les te (61, {7}, [8] passe 
par des états intermédiaires OBLIGATOIRES, et il n'en 
existe pas de plus économique. De proche ne proche, et 
comme nous connaissons La solution optinate pour déplacer 
zéro disques... CQFD. 


D'autre part, Sion nes On Le nombre de déplacements 
élémentaires pour déplacer une pile de N disques, nous 
avons La relation récursive: 


On=1+2.Dn-1 
qu'on peut encore écrire: 
{1+0n1 = 2,01+Dn-11 = 21,[1+0n-2]) = 
= 2n.[1+00) = 2 
D'où On = 2n-1 
LA PRESENTATION 


La fonction DEPLACE donne une solution rigoureuse du 
problème des tours de Hanoï, mais si après avoir satisfait 
votre curiosité intellectuelle vous voulez aussi amuser 
vos enfants, il faudra Lui donner un peu plus de 
convivialité. 


Pour celà nous écrirons une fonction que nous appelterons 
HANOI (pourquoi pas) qui fera La saisie interactive des 
données du problème et qui fera ensuite appel à DEPLACE. 
Nous nodifierons un es cette dernière pour Lui faire 
compter et afficher Le nombre d'opérations élémentaires, 
et pour présenter à chaque pas L'état des trois tours, 
dise à L'appel d'une fonction de présentation appelée 


Voici Les Listings de ces différentes fonctions, avec un 
aperçu de La présentation des tours. Bonne soirée. 


F. ESPINASSE 


Pour information, 8 Saucissonage GE5 
ariices cans tes magazines est un procédé 
exgigité our forcer :e5 cecteurs à 5e farcir 
Le gadticite (ACTUEL, Le FIGARO MAGAZINE, 
BR a 


Concernant ce serveur RIEL, une précédente 
gxgérience avec GED! sur SAM (toujours 
gpératiannes...}, nous caisse sceptique. Le 
Svstème de boite aux Lettres à tailie Limitée 
n'est pas die S50.ution intéressante. Je me 
répète: un serveur Style QUF mais accessibie 
par Le 3615 Cévestuei.ement par Le 3614) est 
certainement Là meicteure SqLution: 


- tout message déposé dars La messagerie est 
visible par tout .e monde, exemple: UNTEL1 à 
SECRETAIRE, UNTELA à UNTELT. 


commande germe: d'obtenir 
: identification du déposant, du 
destinataire, ie sujet du message, CeC1 Sans 
confidentiatité: 


mu 355: 
28101188 20h45: de SYSOP à TOUS - HORAIRES 
MAINTENANCE 
au 356: 
28/01/88 20h55: de 
suite page 1! 


0) N DEPLACE A:010 
1) OI0e1 
2] At'ABC'LA 
3] +(0z=N)/0 
4) 3(Q21/R€ 1 2 3)/ERR 
+C2#0A)/ERR à 
-1)DEPLACE "ABC'CCLHA).6-+/A : 
: à ë RAR DEPLACER LE DISQUE ‘,(1 O 8N),' DE ‘.('ABC'Et#AJ).' EN ‘,'ABC'C 719] 
8] TOURS 
93 (N-1)DEPLACE 'ABC'C(6-+/A), "19A] 
CL 10] +0 FROBLEME DES TOURS DE HANOI 
C 11] ERR:'DEPLACI': erreur de données' TROIS TOURS À KB et C 


mm mmmmmnmm 
ca 
Lu 


TOUR DE DEFART: E 
TOUR D'ARRIVEE: C 
NOMBRE DE DISQUES: = 
ue == « 
“ nn à 
i È 
I 
a E& C 


Fresser une touche pour chaque déplacement 


1: DEFLACER LE DISQUE 1 DE B EN C 


O (] Ô 
9 = à 
o nu == 

© 4) OPQINKEY A B C 

U 2) e't',(1 O B4#A), ‘HAUT, C4 © 8140) | | » 

L 3) e7",(4 0 B'LPA), ‘en, Te, (1 O 8"188) 2: DEFLACER LE DISQUE 2 DE B EN a 

C4] MR@(3, NO) 6€ NORO TL), (NOHOT2) , NOHOT3 

OU  S1 Le010ei 

[67 DEBILé" ‘.(9#@LL),LLe(1 O SMCI312), (MC 1; L)6QAUE 2217),C(9-Ml4))e" *) 

D O72 Lel,t  *,CSN@LL).LLets O 8MIe2)3.C MC I: BJNAUE 2213), ((9-MI+27)ot 1) 

DJ Lél."  *,CS#@LLi.LLet1 © sMC1:3)). (MOI 3JoDAUC 2211).C(9-M 1:31)! 1) 

U 91L 

[ 10) +((1+oM)2161+1)/DEB . : : 

© 11) !,63e0AV 206] ë o Ô 

[ 123 (426° '),'A' (240 ‘),'B',(24e" 1) MC à F 1 z 

t 132" = = æ = = == 
A E C 

ét DEFLACER LE DISQUE 2? DE À EN C 
] o [e) 
(e) © Re) 
=, 
9 “= mu Bus 
À E € 
Tr  DEFLACER LE DISQUE 1 DE B EN € 

(a 5 | “lu 
“ S = 
9 ! x mue 
à E (es 


ET VOILA : 


Chaque connexion est enregistrée. Si vous avez üne BAL activités de L'association seraient supprimés (messages 
(pseudo + code) Le système Vous Signale Le nombre de roses, ventes {.Légaies de matériel ou de logiciel de 
message vous étant destinés depuis La defnière connexion: provenance douteuse, essais cafouiileux, injures, etc...) 


derniére connexion ne 28/01/88 à 20h45 -a taitle d'un message serait variable. Profitons de ce 


dernier message reçu: 35 que Le MINITEL puisse exploiter Le scroLing. (AéFÉ lement 
nombre de messages reçus: 4 | vertical) pour simplifier La manipulation de La 
taper L'pour Les Lire, R pour Le résumé messagerie. De plus, Le téléchargement de petits 


programmes en ASCII serait simplifié. 


Le mode menu permet de sélectionner une option: 


Pourquoi Le 3615: transmission en 1200 bauds dans Le sens 


TELECHARGENENT 3ErVeUr-USager, donc débit correct. QUF ne transmet qu'à 
CHANGEMENT PSEUDO et CODE 300 bauds en réseau commuté avec terminal et modem 
ECRIRE QU SYSOP (LasSique, à 1200/75 bauds avec un minitel mais sans 
ECRIRE UN MESSAGE Htc rieRn (transmission de fichiers compressés) 

LIRE UN MESSAGE L'accès 13 3615 est moins coûteux que Le réseau conmuté et 
SUPPRIMER UN MESSAGE permet l'accès multiple. C'est aussi Le seul moyen pour 


entre autres commandes. qu'une Société accepte de s'occuper de La maintenance 


Les enregistrements n'entrant pas dans Le contexte des suite page 15 
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ED) 


COURRIER: 


| #6 HUMEURS ... #44 | 


A propos de fichiers texte... Je relève dans BYTE de 
Janvier 87. quelques réflexions puisées dans BIX (Le réseau 
BAL des utilisateurs, de Forth en particulier), à prapos de 
La conversion fichiers-blocs: 


“IL est facile de transformer des blocs en fichiers 
ASCII, et vice versa... Lisez 64 caractères, ôtez Les 
itrailing spaces", JE Le CR (ou CRILF) et Écrivez Le 
tout dans un fichier fexte. Inversement, Lisez une Ligne de 
texte, êtez-lui Sa ‘fin 
elle fait moins de 65 
bloc; Sinon 
caractère." 


de Ligne’, ajoutez des espaces 51 
caractères et  écrivez-la dans un 
coupez-la à L'espace précédant Le 64ème 


Qui, mais: 


“des écrans en fichiers ASCII, oui. L'inverse, non. Car 
où s'arrête une définition? Il est certainement passible de 
convertir 2 secteurs (d'un disque) en Écrans, mais Ces 
écrans seront ‘inchargeables"", 


Et A LLEE qu'en est-il des erreurs? À moins que vous 
soyez de ces programmeurs qui ne font jamais de fautes de 
frappe ou de syntaxe... 


Cependant : 


‘EL suffit de couper Les Lignes seulement sur des 
espaces (Ci. €. ne pas couper un mot) et La conversion 
fichier-écran marche très bien." 


C'est d'un optimiste. 


Mais La question est: pourquoi cette obstination à vouloir 
écrire un programme avec un autre éditeur que Le 
istandard', et parfois même avec un traitement de texte 
(utiliser MordPerfect pour créer un source Forth, c'est, 
mon cher Secrétaire, prendre CRAY 1 pour tenir votre compte 
courant !), Je crois que La réponse est donnée par Laxen 
{ou Perry) Lui-méne: L'éditeur ‘standard’ est une 
fabomination', Vrai. Mais il en existe d'autres, et JEDI en 
a publié au moins 2. Alors? 


? Ce prograese donne accès au fichier CONMAND.CON de NS -D0S. 
» L'accès n'est pas Lisité aux seules coasandes du DOS: tout 
* prograsse peut être Lancé, pourvu qu'il tienne dans la RAN 
? disponible, la partie de la néeoire occupée par F83 étant 
? "réservée" (par un appel à la fonction 44H de L'INT21H). 

? On peut aussi créer des ‘ants' d'appel spécialisés. 

19? Par exemple, si votre éditeur préféré est NONEDIT.EXE, 

11 * resplacez COMMAND.CON dans CON par NONEDIT.EIE et changez 

12 ? CON en EDITEUR, 

13 ? pumnmmmmmmmnsmemenmommeneumonsuemmenmentenmemmmnésmetemmnse— LEE 


ss 
= 


12Jan88Jab \ 
\ BUF-CHD sera pointée par DS:DI 
2 128 CONSTANT COMMANDE \ taspon cossande DOS let DTA) 
3: CID? 15 -- ) \ prend Là cossande .. 
4 CR." Quelle cossande?" COMMANDE DUP 64 ERASE 
5 CR DUP 4 + RD EXPECT SPAN & ?DUP 


0 \ Appel à CONNAND.COM 
1 CREATE BUF-CHD 18 ALLOT 


6 IF \ quelque chose est entrée ... 
7 3 +4 OVER C! \ igr totale entrée + 3 octets 
8 + 47 OVER C! \ syntaxe DCS 

9 1487 DVER C! + 32 OVER €! \ "JE * 


10 SPAN € + THEN 14 13 SMAP C! 3 |... sinon juste un CR. 
tt CODE CS? CS PUSH MEXT C; \ Code Segsent eapilé. 
12 CREATE LIST-PARAN \ sera pointée par ES:BI 


13 8, Cenvironati COMMANDE , CS? , { adr ligne cade) 3 
14 92,097, { FCBI en @85CH } 188 , CS? , ! FCB2 en SCH ) 
) --) 


N°Ud- clécembre 1487 


CODE DOS-CONNAND (5 -- ) 


CON (5 --} 


Appliquons La méthode expérimentale chère à DESCARTES: 


1 - Compilation du pragramne FBASEIT, 
noyau ‘vide": 28 secondes; 


25 écrans Sur un 


2 - Conversion en fichier “texte', mise au point NE ne 
AE jamais du premier coup) et compilation: 1 minute 32 
secondes. 


Je.croyais que TURBO Its entre autres, ‘accélérer 
La compilation". Si le temps en est que He 3, le 
terme n'est certainement plus justifié. ailleurs, 
pourquoi se compliquer La vie avêc des programmes de 
conversion? Vous avez Un Source ASCIT en syntaxe Forth, 
faites simptement sous DOS: 


A F43 € SOURCE. TXT 


et ça marche! À condition que votre source sait HUE 
(pas de LF, et il faut ajouter un SAVE-SYSTEN xxx COM 
suivi d'un BYE à La fin du source ...). Mais dans tous ces 
cas, une grosse partie du problème a été éludée, car on 
prend un programme déjà mis au point avec L'*abomination” 
ou son équivalent Cou on construit une boucle de 3 AE LE 
pour voir...). Mais jouez Le Jeu à partir d'un éditeur 
extérieur à Forth, en commençant à La première Ligne d'un 
jrs en comportant 1200 Ctaille de FBASEII), et notez 
combien de fois vous suppartez de sortir de L'éditeur pour 
appeler Forth, compiler, ré-entrer, corriger,... 


Reste deux solutions: 


1- créer ou copier (ou pirater) un éditeur intégré 
plein écran {cf pie exemple JEDI n° 37, Juin 87). La 
structure en blocs des sources Forth n'est pas un 
dinosaure: cela pernet entre autres de tester une petite 
fraction d'un programne. 


2.- si vous tenez absolunent à utiliser un éditeur ou un 
traitement de texte ‘extérieur’, appelez-le à partir de 
Forth : La fonction 4B de PARIEN 21 est faite 
Eur Mais ceci est un autre article... que notre 

ecrétaire, s'il est bien gentil, publiera dans ce même 
numéro ... (2 écrans suffisent). 


A. Jacconard, Jan 88 
29190 PLEYBEN 


LISTING: 


Utilisation : CON (Enter) ? 
le systèse desande un nos de cossande. 

- si vous entrez une consande D0$ (ou ua nos "exécutable", ? 
elle est exécutée, et le retour sous Forth est autonatique. ? 
- si vous frappez (Enter) seul, vous êtes sous DOS, comme  ? 
indiqué par son “prospt”, utilisation tout à fait aoraale. ? 
Le retour sous Farth se fera par : ? 
A)EXIT (Enter) ? 

L 


À. Jaccosard, Jan 88 


3 
Appel à CONANS. CON 
REX 


1232n88)a8 


1888 & BL NOV 4A 8 A MOV 21 INT 
BUF-CHD # DL NOV 

LIST-PARAN 9 BI NOV 

BP PUSH DS PUSH ES PUSH 

SPA BAL NOV AX FF84 #) NOV 

SPS 94) AX NOV A FFBS 3) NOV \et la pile elle-sêse 
48an # A MOV 21 INT \ appel au DOS 

FEU H) AL NOV AX SPE 8 MOV FF86 #) AX MOV AX SPA 8) MOV 

ES POP DS POP BP POP \ restitue pile et contexte 
NEXT C3 DECIMM 


\ réserve &4k 

\ DS:DX pointe ‘Cad” 
Vet ES:BX sur ’paras” 
\ sauve le contexte 
Vie pointeur de pile, 


\ oct utilisateur 
" \COMMAND.COM* BUF-CHD DUP 18 ERASE SAP CHOVE 
CND? 90S-COMMAND ; 


Objectif Division et racine carree de grande nombres, Curiosités mathématiques et antiquités. 


Langage FORTR bien évidemment 
Difficulté y'en à pas ni si peu 


Matériel za tourne sur ATOS mais ça devrait tourner sans problème sur du petit matériel comme les compatibles FC 
But Me faire plaisir {c'est déjà pas nal !} et à d'autres par La mége occasion. 
Date 29/12/87 si ! si ! C'est bien le jour où on se fait plaisir. 


Je ne vais pas cracher dans la soupe! Le FORTH c'est bien mais le problème est que lorsqu'on veut faire des opérations 
IT faut toujours savoir la grandeur des nombres: si le forth va Les comprendre conne signés où non, etc.. 

À la longue. 5a devient nant surtout si on ne peut pas le prévoir à l'avance, 

J'étais en train de faire un programme de géométrie { et bien oui ! encore des maths ) assistée par ordinateur! dessin 
et calcul autosatique d’intersections. de nédiatrices.de symétries-de projections etc,,, quand je ne suis trouvé coincé 
par de manque de précision des calculs. Comment faire ? Changer de néthode © Non ! déjà que faire d 


qu'avec des nombres entiers.ce n’est pas de la tarte ! 
Solution! lui apprendre à faire des divisions ! 


I Divisions de grands nofbres positifs 


alculs de pente 


Le problème est de faire des divisions qu'avec des nombres positifs et qu'ils soient bien compris comme tels. 


Faire 234 2 / pas de problème 23456 2 / non plus 


44000 2 / ah déja un problème car 44000 est compris comme négatif sur {6 bits 
solution le passer en double précision sur 32 bits et employer M//MÜD ou HM/MOD 
donc faire 64000, 2 MI/MOD DROP NIP si on ne veut que le quotient entier {6 bits 


) 


de la pour 122456, idem car c'est déjà un nombre 22 bits 


Alors où est Le problème. aucun si c’est Le premier nombre qui augrente.tout est possible ! 
Mais si le deuriène devient un 16-hits signé négatif et à forciori un 43-bits. 
Enfin bizarre ! car pour un diviseur comme 33600 qui devrait 


un débits signé MUSMOD et IM/MOf donnent chez 


{et UK/HOD pareil) 


moi le néne résultat pour par ext 123456, 31009 MI/NGD donne 2 
mais 123454, 44000 MU/MOD donne pour quotient 0 et restet -7416 
Est-ce qu 


ë 
gorithme de division en LA de IM/MOD , Oh si dites ft 


ça dépend de l’inplantation ! (Ne t’inquiètes pas Michel} mais quelqu'un pourrait-il m'expliquer l’al- 
Comme étrenne ! 
e multiplication, 


Toujours est-il qu'il y a de quoi perdre son latin ou plutôt ses tables 

Ma solution refaire les divisions comme on les ferait à la main? vous savezt En fout ça,, coabien de fois l'autre: 
J'essaie fanfitanf fois ça... ofé de .,, if reste ,,, et je rafiens ,,, ptc.., Ah zut c'est frop grand... je Le di- 
sinue ef on recosæence.Puis on abaisse... Ef ga marche, sauf que l’on est pas du tout obligé de le faire en base 10 
On le fait directement en base 236, la méthode reste valable. La différence est que Le plus grand chiffre.si on peut 


appeler ça un chiffre est 295, 


Si on travaillait en assenbleur;on aurait interêt À faire la méme chose en base ?, 


Les mots janosrtants: 


ENTD qui permet d'entrer le dividende 42-bits, ey: 1234547690, ENTD 
ENTS qui entre le diviseur 22-bits de la nôme façon, e1 9276543, ENTS 
Ces deux mots utilise le même ENTRE qui met dans les zones DIVO ef DIVS Les nombres 3-bits en b 


fe en avant comme on lit naturellement un nombre, Pourquoi 
FC er deux nombres, le mot COM fait l'affaire, 
DIVISE vous v 

tient les dividendes utiles successifs comme à la main. 


2 partie hat 
r selon cette méthode: pas besoin 


ous en doutez met le quotient entier dans la zone QUOT . Le reste est alors dans la zone DIV2 qui con- 


Ce mot ne laisse rien sur }a pile { car je l'utilise par La suite pour autre chose) 


Les aofs MST PREND ppt le quotient 33-bits sur Îa pile, 
HIV2 PREND met Le reste sur la pile, 
gt RESTE l’afficherait directement, 


Rx fait une multiplication avec retenue, 


DECALE qui fait un décalage vers La gauche de la zone considérée en faisant rentrer à droite un octet.et sortir à 
gauche un gciet sur la pile, La ressembie à de l’ascembleur. 


r— 
D 


ET TT ET eu LR dt 


3 premiers écrans suffisent, 
nl 


* Lu 
LI 


D NY La 
ET hu va 
a HA On 


s 
î 


il 


ei 


me A + ee 


“1 


DU 


Fi 


an suffit pour velaï le 4 
Ï guie les zones qui vont contenir les nombres soient as 
version 32-bits,leur longueur doit être élastique pour l’au 

sation.Mais il est bien évident que les 4 der 


es 


re 


fu 
mi 
“4 


COCO CE CS 


D 


te 2 D D me um 
LE É 


ES] 


MOIS LI D 


De 


eut faire des divisions de 2 


IT peus ja bn CTI IL TD 
CORRE 


Cu 


on D 
i un à 


+ ES fu 
3 
= 


em 


Fou 
atnthqaoiciel ouci ? Si ça interesce quelqu'un : 
4 Ë 
€ 


st 
Eh 0 
M = 
es é 
Tr 

— 


ny 


EN + 


randes, Si leur longueur de 4 suffit pour 
est fixée par la constante LS aise à 
rien et même font perdre du tenps pour 
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14 


où Amis GintAflni/ 4 étant le nonbre dent on cherche La racine (carrée fci) 
Méthode par récurrence où quand N tend vers l'infini, XNA tend vers cette racine, Ce qui est interessant c'est que 
l'infini n'est pas loin ! { converge rapidement) 
Ce qui ne génait c'était La boucle de 10 0 09... Je l’ai modifiée en un BEGIN, HHILE.. .REFEAT et on arrête quand les 
calculs ne donnent plus de différence, 

la seconde donnée par le fig-Hanbourg était basée sur la somme des premiers nombres impairs qui est carrée ( si j’ai 
bien compris la aussi.) C'est bien mais La encore.si les nuabres sont des 4-bits signés-que se passe-t’il ? 

Ma solution est basée sur NEWTON. 


USERT donne en plus les racines jusqu'à 89543, 
Si vous regardez bien-il a fallu passer par des divisions en 32-hits. 

EBRT enfin me plait pas nal:nais elle ne donne que les racines carrées inférieures à 32747 donc pour des nostrec 
3è-bits inférieurs à 22747142747= 1077025, 

Aucun de ces mots ne teste le fait de savoir si jamais le nombre êst négatif. L'avait qu’à faire gaffe ! non ais ! 
L'un des problèmes est de savoir par quel nombre à commencerscar plus on prend un nombre près de la racine, plus on 
est vite arrivé. Evident non ! J’ai choisi arbitrairement la moitié du nonbre de départ, En fait ça ne fait gagner 

qu'une divisionset 32767 pour les 22-bits car évidemment La racine ne peut être plus grande. 
En général.c’est assez rapide 8t on comprend Le pourquoi de La boucle 10 G D0.,, car 10 calculs suffisent bien dans 
les cas 1é-bits. Pour les nonbres 22-hits purs. il faut plus de calculs de 15 à.,, 2, Une quinzaine pour de nombres con 
me 48000, et 3 pour 1073874289, Evident car pour Le premier on est très loin du premier nombre essayé: 32767 
Tout ça tient en À écran le cinquième À La fin de cet écran, il y a un second DÉGRT qui dannerait des racines plus gran- 
des si les divisions forth tenaient la route, 
Et justement puisque maintenant on sait faire de grandes divisions. on peut chercher de grandes racines carrées. 
C'est le but de l'écran & où MSORT donne les racines de très grands nombres 3é-bits s'ils sont rentrée avec ENTD ou 
décimaur s'ils sont rentrés par DIVIGENTE, 
eit faire 4194740000. ENTD MGORT .GUOT ou DIVIDENDE 12245475909787451 MSBRT OUOT 
Problème ce n'est pas rapide.mais alors pas du tout ( 10 à 20 5 pour des nombres corrects} 
Comment aller plus vite, Première solution smplovéet si Le nombre est 42-hils:la racine est inférieure à | 
Pour jes autres-on se base sur l'écriture.la racine d'un nombre ne peut pas prendre plus de La moitié des chiffres 
du nombre de départ à 1 chiffre près, Pour un nombre de 19 chiffres, la racine n'aura que $ chiffres Maxiqut, on con 
mence alors au plus grand nombres de $ chiffres qui est 97799979 . 
Alors sa marche Qui nais c'est encore lent car on répète plusieurs fois des divisions qui déjà prennent du temps, 
Comment calculer la racine d’un grand nombre avec un ordinateurtLa calculer à Ta gain 
Non ! Ne balancez pas votre petit PL (ou pas frop loin de chez moi que je...).on va faire conne à la main, 
Vous savez'la néthode qui ressemble à une division-qui a Le goût d'une division (donc on aime pas} mais qui n'est pas 
une division. On l’apprenait autrefois à l’école ! 
En voici un exemple: soit à calculer La racine de 119737 . 
Om découpe ce nombre en tranches pas trop épaisses (l’est bien une recette) de 2 © 
- On prend la première tranche 11 . Le plus gra 
carré de 3, Le prenier chiffre est donc 3 


45535 Evident 


hiffres par La droite. 
nd carré inférieur est 9 et c’est le 
fi 97 32 


-$ - În abaisse la deurième tranche 97 at 1 commence Île cirque, 
CE On double les chiffres trouvés, aisé 
2 97 On cherche le plus grand nombre &NAN qui puisse être enlevé à 297 
-2 % Le plus grand possible est 254 donc Le chiffre suivant est 4; 
Se 481 8S:S était trop grand.On soustrait 256 et on repart du reste 41 
1 37 IHOuI=IIM - On abaisse la tranche 37. Îm double les chiffres trouvés:34 -5 kë 
“ai {4 axé La plus grande posibilité ast obtenue avec 468614=4116 
ses : donc Le troisième chiffre est 4 
BL - Si on voulait continuer après la virgule, on abaisserait La tranche 00, 
U L'interdt est aussi que l’on connait le reste de cette opération, 
Le problème est qu'il faut essayer fous les chiffres successivement à partir de 0. 
Encore une fois-la méthode est valable pour toutes Les bases. Le tout est de l'adapter, 
Buelle base emolo, ve ja division sur l'écriture décisale.on emplayait la base 1Gsgais ici une tranche de 2 chif- 
fres di u'i rauotient”. des octets de 1 à 206 donneront des chiffres de Î à 15 : on va 
: | 
hi Î plus rapide que MOGAT mais c'est quand ame lent, 
EN | 
123 
SIOT s chiffres arrivent À par Let pour les remettre dans le format 
5 é donner 3 46 en déciqal, 


E IT D 9 Répon ïi ! feinon je n'aurais pas posé la question ! 
Co n nodifiant ce qui est le plus long.La recherche du chiffre par des aultiplications successives, 
5 arde les calculs affectués et les différences entre les produits suiccessifsi 

ent Ga et AStel différence de 481 entre kélat et 4OaT différence de 453 entre 6x2 at 6833 différence de 485 
En LEA:3 et b64x4 différence de LE etr.., vu ? 

les différences sgnt 8BI.4E3.4ES. 487 donc de © en 2 à partir de 81 (non Ui 
Au Lieu de Les soustraire qu'à la fin-on les soustrait au fur et à mesure lorsque c'est possible (d’où la ressemblance 
avec une divisiontla différence étant que les nombres soustraits ne sont pas les mémes.i 
La dernière méthode employée est celle-là: écran 7 et elle est deux fois plus rapide que l’autre, 

Est-ce oossible d'être plus rapide Réponse te n'en sais rien ! Qui si on passe à l’assentleur (mais L’appliquant aû 
binaire et ça devient plus simple cart soit le reste partiel est plus petit alors chiffre 
soit il est plus grand et le chiffre ne peut être que À 

Mais en améliorant la méthode et en restant en forth, 7 


s écoute !! 


FILE: RIGUIV.FTH / SUAN# 
O À Division gouble.prel iminaires 
{ ONCY FURTH DÉFINITIONS DECIMAL 
2 VARIABLE ESS VARIABLE RET VARIARLE OCT VARIABLE FL 
? VARIABLE OCT 19 CENSTANT LS i pair |! 

TAB CREATE LE f+ ALLOT DNESS : 
:TAR DIVD :TAB DIVS :TAB RESF 2 TAB QUÜT : TAB DIV2 
: OR Q OCT 6 MU/MOD DROF : 
3 Rx/ 40 RET 8 0 D+ NT € MU/WOD DFCP ; 

î CHO 1 EGIN GDF + CE CG MHILE 1+ REPEAT SP Ci: 
3 ENTRE 26 OT OR JR KR LG 4- + CR LG 2- + C! 
PR KR LG ji + CI RES + C' RÈ CHü : 

‘ VIDE LG + ERASE : 

‘ ENTO DIVD DUF VIDE ENTRE : 

î ENTS DIVS DPF VIDE ENTRE : 

ï CECALG DLFP {+ C8 -ROT UP 2+ DIF 1- 


—) 


4 
e 
ñ 
à 
+ 


La t- CMNE Lü + Ci: 


CRE 
ON nm dites se D 0 0 


FILE: BISRIV.FTH / SCAN# 3 


0 À Division double 

1 5 COUT DIV2 CP CB + C@ GIVE DUF C6 + C@ DIV? Ce DIV3 Ce 
7 < IF 28 OCT 8 «D DIV DUP CE f+ + CE D D+ 

3 Rè MU/NOD DRCP NIP ELSE / THEN ESS ! 

4: DIVISE RESF VIDE GNT VIDE DIV: VIDE 

5 Li 0 En @ DIV DECALS DIVX DECALS DROF DIV? CH 
4 DIV2 1+ DIVS 1+ Lo COM -1 = 

7 ÏF 0 ESSD ! ELSE 7GUNT DIV) THEN 

oi EE @ OUT DECALS OROP LUF : 

9 \ 5 RESTE DIV PREND D, : 

10 \ : .GUOT MIT FREND D 

ii 

13 

{4 

15 + 


FILE: RIGDIV,FTH / SCAN# 5 

Q \ Racine carree » simle ECM non signée. double 
1 ONLY FORTH DEF INITIONS 
: U/HID $ SRAP HU/NOD DRE à : U/ U/MOD NIF ; 


: SORT LP 1+ 2/ REGIN ZUUP / OVER + 2/ 
2EUP - D À MHILE NIF REPEAT MIN NIF : 


EN Em HR 


4: USSAT DEF {+ a 5 RERIN 2DUP U/ OVER + L2/ 

7 2OUP - 0 * HHILE NIP REPEAT MIN NIF : 

St DSURT GP û= ÎF QVER US/ 1+ ELSE 32747 THEN 

3 BEGIN 2OUF MU/MOD DROP NIP OVER + ID/ 

10 STAP - À } HHILE NIP REPEAT MIN NIP NIF : 

15 V2 DÉORT 43575 BEGIN 3DUF ML/MOL6 DROP NIP 

2i QVER Q SWF O0 [h 2 MU/MiD DROP NIF 

13 \ 2DUF 0 SAP O ONESATE D4 OC IF DFOP -1 THEN 
14: 0 U> HHILE NIP HP LI, REPEAT MIN NIP NIF « 


FILE: RIBNIV,FTH 7 SCANS 7 

0 \ Racine carree. ancienne methode Lo FAIR ‘! 

1 3 REMUIT DIVS VIDE 0 LG DO QUOT I + DEF Ce SHAF 1- CO TI À x 
+ LE DUP I - 27 - EIVS & C! -2 HE : 


OÙ 2 RET : 0 LÉ DO RESF [+ ce Ta IQRRET ! RESP La 
4 [I RÈT @ fe GLEAVE -1 +00 : 
53 SOÛ+) TI Ê DE RESF Li + +1 j ESST ic: 


& 1 RAC] REoor RESF IN 


DIVS {+ RESF t+ + QCTI L = NIT AE 


SE 8: 
+! RERFAT -{ EST +! 


Ë ne £ AUS ZAR ÈS SG: 

 : RACINE DIVz VIDE QUOT VIDE EL OFF 

16 [CT 6 294 = IF 4 ELSE 10 THEN OCTI 

ti La 0 09 06 DIV DECALS OÙF DIVZ DECALS DORE 

12 D FL 8 C AND IF à ESÉD ! ELSE RACI FL ON THEN 
{3 ESSD @ AUOT DECALS DRCP LONP 


4 REBUET DIVS GUNT LE + CHOVE : 


logiciel le et matérielie sans contrepartie financière autre 
que Les bénéfices provenant des connexions. 


Une autre solution: CALVACOM en 3613 avec cité Ji 60 Fr 
de L'heure ni abonnement, donc au même prix que Le 3615. 
Un serveur 3615 code JEDI donnerait une vraie vitrine à 


+ 2DIV DIVS VIDE 2 DIVS DECALS DROP DIVS 
+ 
Û 


FILE: RIGOIV.FTH / SORA 2 
\ Division double 
: MULTI 0 L5 M DR I 


IN2I+E 
j RET 


: DIVI ESSD 8 0 MAX OCT 
BEGIN MULT RET 8 de MOT 
DIV2 + RESP 1+ La COM -1 
-1 ESSD +! RÉPEAT SOUS ; 


5 PRDI QUF C8 OCT À sD ROT 1+ CE 0 D+ DRE : 
‘ PREND UP Li Î- + PADI SF La 3 - + FRDI : 


= [À HILE 


=; 


PILES RIGDIV.FTH / SCRM 4 
\ Division decinale 
t ENT2 OF VIDE Æ NORD LP C6 DUF 5R 2 MID 
1 = IF {+ C8 42 - OVER DECALG DROP HERE 1+ THEN R> 
2/ 0 700 DUP I 24 i+ + OP CA 45 - 19 * SNMP L+ CB 43 - + 
oh OVER R> SAP DECALS DROP LOGP DROP CHO 100 QT 1: 
: DIVIDENLE DIVD ENT£ : 
ï DIVISEUR DIVS ENT : 
ï AFFOCT 48 + OÙP 48 = IF DROF RET 8 IF 43 EMIT THEN 
ELSE EMIT RET ON THEN : 
AFFICHE SPACE RET OFF Li Le 1 D0 OF I + CR 10 /MOD AFFOCT 
AFFOCT LOOF DROP RET @ O= IF 45 EMIT THEN SPACE : 
: AFF2 OCT 8 296 = IF PREND D, ELSE AFFICHE THEN : 
RESTE DIVS AFF2 
OT GUOT AFF2 


—_ 


FILE: BIGDIV.FTH / ai 6 
\ Racine ces ar NEWTON ; 


CHO : 
JOT 1 +0 


ce a + 
-1 HÛ0® ; 
& 


: AND DIM DE RE 0 LE DD € 
8 + /OR RET ! 1 + 
: MSGRT DIVD PAD Le j+ CHIVE ar @ 2 = IF 43935, ENTS 
ELSE DIV VITE Lé DIVD 8 - i+ 2 /MOD + 
0 Dù 99 DIVS DECALS DRP LOGP 
THEN DIVS PAS LE f+ + LG f+ CHOVE 
BEGIN PAL DIV Li {+ CMOVE 
PAD LE 1+ + DIVS Lh {+ CMOVE DIVISE 
ADD DIVR CHO 2DIV DIVISE MOT CHO 
QUOT 1+ PAD LE + + LG COMP -1 = MHILE 
QUNT FAD LS 1+ + LE + CMOVE REPEAT 
PAD LE {+ + QUIT LS 1+ CNE : 
\ faire ENTD où DIVITENDE puis MSIRT et .QUOT 


Ve 


FILE: BIGDIV,FTH / SCRN# 8 
\ Racine carree, ancienne methode LA PAIR !! 
\ 5 REQUOT DIVS VIDE 0 LS DO OT ! + DUF CE WAP j- 
\ ++ LS DPI - 2/ - DIVS + C -2 #0 ; 
à LE FN ESSD ! MAT RESF DIVS L5 : CMINE 
. @ [AP # RET ! MATI 


*à BESIN Î 
+ RE + La CMP 1 = E 
LED +1 ESSD R QC a 
: RACINI nte VIDE QT VITE FL OFF 


Ce (ETI € 
Q ESSD !: 


4! MTS 
e OCTI 8 = OR HNTIL 


Ci 


L DCT € 296 = IF 16 ELSE 10 THEN OCTI ! 

Ë LS © D0 © DIVE DECALS DUF DIV2 DECALS DROF 

\ G= FL € G= AND IF G ESSD ! ELSE RACI FL ON THEN 
à ESSD € QUAT DECALS DRCF LOF 

\ REGUOT DIVE QT 5 {+ CMWE ; 


l'association et serait Le moyen Le plus efficace ue 
cn guer rapidement des jen des réponses de 
petits trucs et astuces. Ûe son coté JEDI se proposerait 
de reprendre dar 
intérêt collectif et 
messages. 


dans 5e5 colonnes tous Les LES ayant un 


tes réponses afférentes à ces 
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par Eric RAMAHEFARIVONY 
Turbo-PASCAL 


Dans l'esprit de la version 4,0 qui permet d'accécer à 
toutes les fonctions du système d'exploitation sans quitter 
le TURBO, cet utilitaire offre les fonctions de base de 
gestion de fichier (efface, renomme, copie). [l a été 
dévelopgé sur AMSTRAD sous Épyx 2,2 avec TURBO 3.0 et a été 
paramétré (taille du buffer de transfert) Des que Île 
sue et l'objet compilé tiennent simultanément en 
mémoire. 


Les options par défaut sont entre crochets, Ainsi, pour 
sortir d'un menu, on tapera RETURN. Le suffixe ‘.pas' est 
optionnel. Le symbole ‘*° est subtitué par la racine d'un 
nom de fichier saisie au préalable. C'est une variable 
pose dont la valeur est conservée entre deux pet de 

‘exécutable autorisant l'appel des utilitaires internes au 
TURBO (tels que le (Diir, ou (Lie changement de disquette), 


Liste du programme i0.pàs : 


Fr once io; 
ype chaine = string 14}; 
CAN à char = 424: (# reverse #) 
nom ?: chaine =‘; 
racineCourante : boolean = FALSE; 


var #ilVar : file: 


const 


function saisie( default : char} ?: char; 

var reponse : char; 

begin (*# saisie lit un caractere au vol #) 
repeat until keyPressed; 

read{ kbd, reponse): reponse = upCase (reponse); 
if reponse = chr(13) then reponse := default; 
writeln( reponse }; 

saisie := reponse 

end; (+ saisie #) 


% 


procedure saisieNon( msg : chaine; VAR nonfile : chaine}; 
var star : byte; nomLocal, racine : chaine; 
begin (+ caisieNom saisie un nom de fichier #) 
if not racineCourante the 

racine = copy{ Ginà nom, !, pos( "7, nom) - 1); 
write( CAN, msg, CAN, ‘ : 42", racine, ‘")] [CRI 7 
nomLocal 1= °"3 readin (nonLocal j; 
if nomocal € ‘” then 

begin È 

if pos! Gin) ",.", nomLocal}) = @ then 

nomkoca! := nomlocal + ‘,pas'; 

star := 908! (in) ‘+', nomlocai); 

racineCeurante :=. star > d 

if racineCourante then 
TE 
defete( in! nomloca!, (from) star, tnbr) 1) 
insert{ fuhat} racine, {in} nomocal, (from) star}; 


1; 


function existefiletfileManes chaines megt char) tEcclean: 
var filExist : file; existe : bogieans 
begin {+ existerile teste l'eristence d'un fichier #) 
fout) filExist, {ini fileName); 
f£I-} reset{ filEuiet )y (#14) 
existe := [Oresult = @; (# ouverture en lecture ok #) 
if existe then clogel FilEriet }; 
case m5 of 
Ée “iste ther 
nriteln( filelame,‘ existe DEJA'); 
=" 1 if not existe then 
writeln! fileNane,' N''existe PAG") 
end; 
existerile 1z existe 
end; {4 exister:le #) 
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procedure filout( enatleDestroyichar; VAR newNare:chaine): 
var existe : boolean; 
begin (+ filout saisie le nom du fichier destination #) 
regeat saisieNom( éinè ‘fichier dest.", éouté newName): 
if (newName = ‘‘} or (enableDestroy = ‘K') 
then existe 1= FALSE 
else existe := existeFile( newName, ‘+°); 
until not existe 
end} {# filout #) 


ne efface; 
egin (+ efface un fichier avec confirmation #} 
writel'confirne l'effacement de ‘non,’ lo/fnl) ? ‘}; 
if saisie( ‘N° ) = ‘O' then 
ai erase( #ilVar }; uriteln( nom,’ est efface ) 
en 
end; (x efface #) 


procedure transfert( nameCible : chaine): 
const secteurSize = 128, bufSire = 8! 
var cible : file; norRecord : integer; 
buffer: array(i..secteurSize,1.,bufGize] of byte; 
begin (# transfert copie un fichier dans un autre *) 
en {out} cible, {in} nameCible}: 
reset( #ilVar }; rewrite( cible }); 
repeat blockRead( {in} filVar, {out} buffer, 
{in} bufSize, {aut} nbrRecord); 
if nbrRecard > 8 then 
blockkrite({in) cible, buffer, nbrRecordi 
until nbrRecord = 0: 
close{ filVar }; close cible js 
writeln(non,' est copie dans ‘,nameCibie) 
end; (4 transfert #) 


procedure traite; 
var neuNane : Chaine; reponse : char; 
begin (+ traite saisie et lance la commande #! 
repeat writel'E)fface (R'enomne (Copie 3 
write("(KiogieËcrasante [Fin ? ‘) 
reponse := saisie( F° )s 
until reponse in L'E'V'R','C','K','F I 
if reponse <> ‘F' then assign( {out} filVar, (in) nom); 
case reponse of 
‘E': efface; 
‘R': begin fijout( {in reponse, out} new\ame); 
if neuNane <> ‘* then . 
begin 
ffi-) rename 


= 
LT) 
si ? + 
14 Tresuté 
( 
i 
i 


. 
3 


{ fi!Var, neuName}s <$i+i 
= 
£hen writein 
else write 
end 
AU 
'C','K': begin fiiout 
1f neuName < 


inf nom," €- *, newName) 
inl'erreur ' Idresuit) 


{ Sin) reponse, faut} newNane); 
> ‘' then transtert(. Gin) nenNane) 


end; 
end | 
end; (# traite #) 
BEGIN (+ principal traite les commandes jusqu'a CR +? 
repea eor( Gin) ‘--} nomf,PAS1", fout: nox !: 


-'} fier traite 
ie 


* igbig Fo sust 


Exemple d'exécution : 


on veut sauvegarder Île fichier miio,pas sur la Cisqueite a: 
sachant que le disque de travail est le virtuel 


Running 
--) nofl, PAST : (az"®} [OR] 9 ja [RETURN] 

Efface (Slenonme (Crggie (Kiopiefcrasante IFluir 9 f 
chier dest, ! tee 


i0,pas est copié dans a:10,pas 
-—} nom£. PAS] : (#stjo") [CRT 7 CRETURA] 


are 


ee 
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fine nes pr 


par Charles MOHR 


pour F83 Laxen et Perry MSDOS 
F43 Laxen et Perry CP/M 
TUR8O-Forth 83-Standard 


Cher secrétaire 


de vous adresse ci-joint un ‘Listing! et une disquette 350k 
contenant quelques utiliiaires de manipulation de chaînes 
de caractères. Cette version qui est Je L'espère, a55ez 
complète, est constituée par La synthèse de mon expérience 
personnelle en ce domaine, ainsi pe des mots glanés au 
hasard de mes Lectures (JEDI...) et à aptés. 


J'espère qu'on me pardonnera Le coté amateur et Les 
maladresses de ce programme et que Les débutants, dont je 


Suis, y trouveront une source d'idées. 


A Ce propos, en faisant des essais d'application de mon 
programme Il m'est arrivé plusieurs fois de me “planter 
en faisant HERE X ERASE, pour X trop grand. Comment faut-il 
ag2r pour pouvoir utiliser La pleine capacité RAM d'un 
compatible de 640ko, c'est à dire au-delà de LIMI7? 


Par ailleurs je recherche un programme de catcul en virgule 
flottante avec au moins 9 chiffrés caractéristiques, tésts 
de dépassement, notation ingénieur et fanctions 
scientifiques assez complètes (CFORTH ou assembieur 
8088/86). Si un de vos adhérents possède ça dans 5es 
cartons... À moins que dans Le TURBO-F4. ..? 


ES 
U VCHRIN (CAP) LIMIT TT 


ONLY FORTH ALSO DÉFINITIONS DECIMAL 
: VCHAIN (Sn CVCHAIN) (nom ... ) 
{à L'execution (nom) ... adr tn ) 
DUP 1 255 BETWEEN NOT 
IF. ABORT" Valeur non admise * THEN 
CREATE QUP 0 €, , 4 + ALLOT 


DOES» 2+ COUNT ; 


: (CAPAT  ( ... d) 

TIB @ SD PAD SD 300. D+ D- D2/ : 
: LIMIT) (S d ... flag vif ) 

ECAPA} D) ; 


Commentaires de VCHAIN 
Utilisé sous La forne: n VCHAIN cnom-de-la-chaine) pour 
créer une variable chaîne de Caractères de n octets max. 


Pour La création n est Limité arbitrairement à 255 
caractères et augmenté de 4 octets ‘de sécurité". À 
L'exécution, (nom-de-la-chaine) Laisse sur à pile 
L'adresse explicite et Longueur actuelle (réelle). 


Par ailleurs : ._ : 
ADR -1 = adresse inplicite utilisée par COUNT 
AOR -2 contient n ( maximum octets USSTALE } 
ADR -3 contient 0 comme repère de chaine 
ner calcule L'espace max alloué aux chaines crées par 


LIMIT» effectue un test de sécurité pour éviter de 
‘planter Le système... Qui me donnera l'astuce permettant 
d'utiliser Les adresses supérieures à LIMIT? 


\  DIMf 
© DINS (Sn de ch,ln max (OIMS» com) ... ) 
(à L'execution indice cnam) ... adr in ) 
2DUP 1 255 BETMEEN NOT SWAP 1 500 BETWEEN NOT OR 
IF SWAP . , ABORT* Valeurs non admises ‘ THEN 
2OUP 4 + #D LINIT) on 
IF ABORT" Uépassement Limite 1nposée ‘ THEN 
CREATE 


2OUP , , 4 + x OUP HERE SWAP ERASE + ALLOT 


RER. | 


DDES 2OUP 2+ @ ut 


IF DUP @ OUP DR 4 + ROT + SUAP 4 + «+ 
DUP 0 SWAP C! QUP 1+ R) SUP CI 
2+ COUNT 


ELSE SWAP .* Erreur d'indice pour ‘ 
. 2- NAME .ID QUIT 
THEN : 


Commentaire de DIMS 

Utilisé sous La forme n in DIMS « nom ) pour créer un 
tableau de chaînes de caractères à une dimension: 

“ nombre de chaines (indice..) Limité arbitrairement à 


in = Longueur maximale de chaque chaîne, Limitée à 255 
caract. 


À l'exécution itndice) (nom) laissent L'adresse explicite 
et La Longueur ‘réelle de La chaîne. Attention indice 
max=n-t, Par aitleurs pour chaque chaine: 


ADR-? = adresse inplicite utilisée jee COUNT 
ADR-2 = contient La Longueur maximale admise 
ADR-3 = contient 0 comme repère de chaine 


(DEBUT?) (2DEBUT?) (LON) LONS 
MAXLONS LONS! LONS+! 


(DEBUT?)  ( adr Ln ... adr in si vrai ) 
OVER 3 - C@ D() 
IF GSWAP . . ABORT' N'est Das VCHAIN " THEN ; 


: (2DEBUT?) (5 adrt nt adr2 n2 idem si vrai ) 
JR DR (DEBUT?) R> R) (DEBUT?) : 
: (LON) 1- C@ ; ( adr ... lon } 
: LONS (DEBUT?) DROP (LON) : € adr in ----{n ) 
: MAXLONS € adr En --- maxln ) 
(DEBUT?) DROP 2- CR : 
: LONS! (S ade ln n ... ) 
0 MAX 2R OVER SWAP MOXLONS R) 
MIN SUAP *- C1. 
: LONS+! (S adr Lan...) 
1R 2OUP MAXLONS SAP R> + 0 MAX OUP ROT ) 
IF DROP 1- COUNT ." Débordenent MAXLONS * 
SWAP . . abort THEN SYAP !- CI : 


Commentaires: | 
{DEBUT?) Vérifie si adr ln correspondent à une chaine de 
Caractères, : 

(2DEBUT?) idem pour ? chaines Dors 

(LON) primitive recherche de ongueur de chaine. 

LONS laïsse La Longueur réelle d'üne chaine, 

as extrait <ë Longueur maximale possible d'une 
chaine. 

LONS! permet de fixer La valeur de La Longueur réelle 
d'une chaîne cans La cimite cu maximum. 

LONS+! permet l'incrément et Le décrément de Là Longueur 
réelle d'une chaine. 


\ VIDES +1$ !$ CPAD+) PADS VPADI 

: VIDES (S ad” in ... ) 

2OUP MAXLONS R DROP 1- R) 1+ ERAGE ; 

: +18 (S adri int acer? Un? sd 
ROT DR 2DUP R@ LONS+i + R) CMOVE ; 

1 i$ (S adrf ln adr? !n? sr) 

2DUP 0 LONS! DROP 0 +14 ; 
: (PAD+) } 


t 
voi 


Commentaires 


VIDES vide D aUeRenR une chaîne désignée 
Utilisation de +! | | 

AT Lnt A2 Ln2 +14 ,ajoute à La suite de La chaine 02 
Les caractères de A1 
Utilisation de !$ 

ATlnt A2 Un2  1$ remplace Les caractères de A2 par 
ceux de A1 (La chaîne A1 reste inchangée) 
Lure ie deb pile de nn de caractères dont 

“adresse de début varie ave ; ; | 

pl (isse L'adresse ét à on ueur de La pile de chain 
ATTENTION! PADS A'ÉST Li, TANPON PRÔVISUTRE uféLEL P À 
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Le Il faut donc récupérer rapidement son adresse sur 
ni DENSE sinon on RUE de perdre 50n contenu. 
abs remet La Longueur de PADS à zéro 


U  DPg (TXT) =" +1 7° 

: DPS (S adr Un ) ju +15: 
(TXT) (S (texte) . r'in) 

We ne Le REA 34 von UN : 
STATE % EP COMPILE] à COMPILE 2SUAP COMPILE !f 
ELSE aise Hu MALE IMMEDIATE 

; + 

STATE @ IF (COMPILE) ‘ COMPILE 2SWAP COMPILE +18 
ELSE (TXT) 2SUAP +!$ THEN ; IMMÉDIATE 

: 2 (GS adr En ... } 255 MIN TYPE ; 


Commentaires 
»P$ prend une chaîne sur La de et L'ajoute 4 PADS. 
(TXT) primitive de saisie de texte au clavier. 
:" affecte des caractères à une chaine, Soit en compilation 
soit en execution. Les caractères lien s sont ecrasés, 
Utilisation: CHAINE =° Ceci est une chaine " (* est Le 
caractere délimiteur) 

“ajoute du texte à une chaîne donnée. 
oreng CHAINE +" de caractères , 
et CHAINE ?” affiche ‘ ceci est une chaine de caractères 
9 affiche une chaine à L'écran. 


_ 


REMPLIS  INTERCS je €" 
: REMPLIS €5 adr Ln asc 

>R 2OUP MAXLONS ?R ZGUP Re nt OROP R) R> FILL : 
: INTERCS (5 adr? Lnt adr2 Ln2 n --- ) 

5 ENOUGH ABS OVER MIN DR ZÔUP 4 PICK LONS+! 

R@ - SWAP R) + ROT 2OUP DR DR 

QVER + ROT CMOVE» R) R) CMOVE) ; 


R" (5 adr ln 
ee ie L 


dr 
60 OVER - 2! GPCES LE 


Commentaires 
REMPLIS jus au Maxinum As chaine donnée avec un code 
ascii préalablement TES sur la pile. Utilisation: 

at int A2 ln? n INTERCS permet d'inserer A1 derrière 
e nième caractère de A2. 
ë affichage formaté à | 


l'ecran avec RUE à droite 
affichage equidistant des bords de L 


( 
R 
E écran 
| -BLG -BLD -BL6ED +BLG 
: -BLG (S adr ion --- ) 

aus re SKIP us ne 

2 OUP HALLE SWAP DROP LONS! ; 
: -8L60 (S adr } 

2OUP -BL6 OVER (LON) MIN -8LD ; 
: +8L6 (5 adr lon y - ) 

)R 2OUP R@ LONS+! 
PADS$ R) LONS! PADS us eouP »P$ PADS 2SWAP !$ ; 
: +BLD (5 adr lon n - 

)R 2OUP RQ LONS+! + D BLANK ; 


+BLD 


Comentaires 

-BL6: er Les “blancs” { code 32 ) 

chaîne et réajuste La Longueur. 

-BLO mème effet à L'extrémité droite d'une chaine 
-BL6D effet conjugué des 2 mots précédents 

+BL6 aqute n espaces à gauche d'une chaine 


au début d'une 


+BLO idem pour extrémité droite 
\ GAUS DROIT MIL$ 
: A (5 agr lon n --- a n }) 


n positif ou LE 
DuP OC IF nur OT OVER + ROT ROT - 0 MAX 
ELSE MIN T 
: sou {5 pis gnn--- adr'n 
Dust ou négatif ) 
UP 85 MIN SWAP Méta OUP 0€ IF OVER + GAUS 
ELSE DR + R@ - R) THEN 
: MILS (S adr Loan n1 n2 --- adr' ion’ ) 
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2ouP te SAP 10 OR IF SAP . . ABORT" Erreur MIL$ * 
ELSE DR OVER SWAP - + OROIS R> SAUS THEN ; 


Commentaires 
GAUS Laisse sur La pile L'adresse et La Longueur des n (ou 
-n) caractères à partir de La gauche À peut être positif 
ou négatif. 
DRDIS même 
chaine. 

MILS Laisse L'adresse et 


l'extrémité droite de La 
de n2 


effet en partant de 


(a APRES caractères à 


compter du nîeme caractère (nt n2 positifs). 
\ sf Of 0$ 
: =$ (S adr1 Lon1 42 ton? --- flag t/f ) 
4 ?ENQUGH ROT 2DUP = 
1 ORUP CONP ELSE 20ROP 2D0ROP -1 THEN 9= : 
: 0 


! 4 (S adrt Lont adr2 Lon2 --- flag tif ) 
4 VENOUGH ROT 2OUP SWAP ?R )R MIN COMP h R) ) 
OVER G= AND SWOP ? = OR ; 
: €$ (GS aërt Lon 1 adr2 Lan? --- ie tif ) 
4 ?ENOUGH ROT 2OUP SWAP )R 2R MIN COMP R) R) 
QVER 0= AND Sé0P -1 = OR : 


Commentaires 
test ARS de 2 
{ascii) et Leurs OUEN 
O$ test d' inbqaL té 
à test de sup riorité (ch 1 ch 2 + 
test d'infériarité ch 1 € ch 2 ? 


chaines suivant Leur contenu 


\ (ECH)  ECH$ 
: (ECH) (6 adri Lont adr? Lon 2 --- ) 

VPADS 2OUP PS 2OVER DR oR !8 PADS Ro R) !$ : 
: ECHS (S adr1 Lant adr2 Lan? ---- ) 

2OUP MAXLONS OVER )R 3R 2SWAP 

2OUP MAXLONS OVER R> ?  SWAP 

R> COR IF ABORT" NU impossible " 

ELSE CECH) THE 


Conmentaires 

(ECH) primitive d'interversion du contenu de 2 chaines. 
EH interwertit Le contenu de 2 chaînes de Longueurs 
compatibles. 


i DANS? 
: DANS? 
(5 adrt Lont adr2 ton --- f si non trouve, 


adr' Lon' t si trouve ) 
4 2ENOUGH QUP 3 PICK « 

IF 2DROP 2OROP FALSE 
ELSE 2 PICK DR OVER 1 SEARCH 

IF Rr+ à) 

ELSE R} R) OROP TROP FALSE 

THEN 
THEN :; 


Commentaire 
Utilisation: A1 ln1 in? DANS? 
Cherche La première Occurence 


de A1 dans A2. Laisse un 
drapeau faux Si non trouvé et ad' ln’ 


drapeau vrai 5] 


UMR {ad'= adresse dans A? du début des caractères de 
\ -$ OTES 
: -$ (S adri lon? adr2 lon? ... ) 


20VER (DEBUT?) DANS? 
IF QUP DR 2OVER + >R OVER DR + R? R) 
QVER - R@ - CMOVE 
R) NEGATE LONS+! 
ELSE 2DROP 


THEN : 
: ÊTES (S adr1 Lont adr2 Lon2 --- adr/pad Lon/pad ) 
VPADS 2SWAP >P$ PADS 2SWAP -$ PADS ; 


Commentaires 


sata {hay DCE LAON ES D UPS AT AT EE 
trouvée. Exemple: 


nn + rm 


ER + « 


cer Ze 


CHI:" ESSAI DE CHAINE ‘ 
CH2 =" ESSAI DE ? 
CHT CH -$ CHA devient ‘ CHAINE * 


La Longueur de A1 est réajustée, 
OTES met le résultat de CH1- CH2 dans PADS et Laisse 
cette adresse Sur La pile.les 2 chaînes ne sont pas 
modifiées. 


1 Mots de concatenation ({ et )) 

© 9COMP COMPILE VPAD£ COMPILE Q COMPILE 0 9 ; 
INMEDIATE ; 

t )} {5 adr1/ln1 à adrx/lnx --- adrpad Lonpad ) 
3 ?PAIRS 


[COMPILE] BEGIN COMPILE OVER ECOMPILE]) IF 

COMPILE PADS COMPILE 0 COMPILE INTERCS CCOMPILE] THEN 
COMPILE OVER COMPILE = (COMPILE) UNTIL 

COMPILE 20ROP COMPILE PADS ; IMMEDIATE 


Commentaires : | 

(U début de concaténation de chaines dans PADS. 

1) met fin à La concaténation de chaines et Laisse sur La 
pile l'adresse et La ne du résuttat CPADS). Exemple: 
Si A$ B$ C$ DS sont des chaines conptées, La séquence ({ A$ 
88 CS D$ )) X$ !$ concatène Les 4 chaines et net Le 
résultat dans La chaine X$, dans cet ordre. 

utilisables en conpilation uniquement 


\ Conversions 2VAL VAL D)CHS S)CHS C@$ KkEYs 
: AVAL (S adr in ... td) 
VPADS PS BL PADS + C! (PAD+) NUMBER? DROP : 
: VAL (S adr En .., n ) 2VAL DROP ; 
: D)CHS (S d --- adr Lon } 
(D.) VPADS >P$ PADS : 
: SICHS (Sn... adr in ) SD D)CHf ; 
: COS (S adr ln .… ascii } DROP C8 : 
: KEYS (S tauche ... adr En ) KEY BL MAX S)CHS ; 


Commentaires , 

2VRL convertit une chaîne en un nombre double Longueur. 
Laisse 0 © si impossibilité. | 

VAL idem mais Laisse un nombre en simpie Longueur. 

D)CH$ prend un nombre en DL sur La pile et Le transforme en 
ous de caractères envoyée dans PADS. Laisse adpad et 
npad. 
c)EAS idem avec un nombre en SL. | 
(@S Laisse Le code ascii du ter caractère d'une chaine 
explicite. ; FU 

KEYS attend La HUE CLavier d'un caractère Ascii et Le 
transforme en une chaîne de 1 caractère. 


\ Fonctions INPUTS  INKEYS 
: INPUTS (S n --- adrpad Lonpad ) 
1 PENQUGH VPADS 255 MIN 
PROS DROP DUP >R SUP ." ? ! 
EXPECT SPACE SPAN @ 
R} 1- Ci PADS : 
: INKEYS (5 adr lon --- ) 
2 TENOUGH OVER SUAP (KEY?) IF 1 LONS! D 8 8005 SWGP C! 
ELSE 0 LONS! O0 SWAP C! THEN ; 


Commentaires | 
INPUTS attend La frappe au clavier d'au plus n caractères. 
Laisse Le résultat sur La pile sous forme de chaine de 
caractères (PAS). Exemple: 

20 INPUTS AS !$ affecte Les caractères frappés au 
clavier à La chaine A$. | 
INKEYS jones de saisir ‘au vol" au clavier un caractère 
ascil et l'affecte à une chaine. Exemple: A$ INKEYS 


ÜMETS SPACES SEPARS MOTS MOTS 
: METS (S adr Lon n ascii --- ) 
4 PENOUGH DR DR 2DUP MAXLONS R> MIN DR 
2DUP R@ LONS! OROP R) R> FILL : 
: SPACES (S adr Lon n ... ) 8L NES ; 
VARIABLE SEPARS BL SEPAR$ ! 
: MOTS {5 adr Lon n --- adr' Lon' ) 


3 ?ENQUGH 1 MAX DR TUCK R> 0 O0 
ROT OROP SEPARS @ SKIP OVER SWAP SEPARS @ SCAN 


LOOP DROP QVER - : 
: 2NOTS (S adr Lon n --- adr' Lon' flag v 


au bien flag f ) 
NOT$ OUP O= IF 20ROP FALSE ELSE TRUE THEN ; 


Commentaires * 

METS met n fois Le code ascii dans une chaine. 

SPACES met JR RIUASS (code 32) dans une chaine. 

SEPARS variable contenant un code ascii servant au not 
suivant MOTS, À L'initialisation contient Le code 32. 

pis extrait Le nieme mot d'une chaine, Limité par Le 
code 

ascii contenu dans SEPARS. Exemple: Soit A$ =" ABCDE* 
A$ 3 MOTS Laisse sur La pile L'adresse et La Longueur du 
caractère °C". | 

?MOTS fait La même chose, mais avec un test de présence. 
Laisse aûr tn drapeau vrai si trouvé, sinon drapeau faux. 


| RATER et exécution d'une chaine (JEDI) 
0 0 2CONSTANT STRS VARIABLE C)IN) 
: ERRORS ( adr Lon flag - - - ) 
QUP IF ['] (SOURCE) IS SOURCE 

C'] (?ERROR) IS ?ERROR 

O)IN) @ DIN ! 
THEN C?ERROR) : 
: EXECUTES { adr Lon --- ) 
a STR$ )BODY 2! 
F1 
il 
L'] (SQURCE) IS SOURCE 
(IN) @OIN ! : 


\ PLACES 
: PLACES (S adrt Lont adr2 Lan? n ...) 
1- 0 MAX 2R (DÉBUT?) 2 PICK RE + 
2QUP © IF 2 PICK OR 
LONS! R) 
ELSE 2DROP 


HEN 
R> + GWAP MOVE : 


Commentaire ; : 
PLACES inscrit Le contenu de La chaine A1 dans La chaine 
à partir du nieme caractère de A2.Les caractères 
précédents sont écrasés. Exemple: 
A1$ A2$ 10 PLACES 


\ OCCURS 
: DCCUR$ (S Ar ion ---n) 
DUP JF 


: ÿ DR TUCK 
ROT OROP SEPARS & 
SKIP 
QVER SWAP SEPARS @ 
SCAN 
QUP 9) WHILE R> 148 
REPEAT 


DROP 2DROP R) 
ELSE  2DROP 
0 THEN ; 


1 Commentaire : 

Laisse Sur La pile Le nombre de mots (d'occurences...) 
délimités par Le code ascii contenu dans La variable 
SEPARS. Le résultat est 0 si la chaine est vide ou bien 
ne contient aucun séparateur ou encore si La chaine n'est 
constituée que du code du séparateur, 


\ Structures de contrôle CASES OFS ENDOFS ENDCASES 
: CASES (5 adr In ... 
2COMP CSP @ !CSP ? ; [MMEDIATE 
: NOCASES 2OUP ; (S aûr Ln ... adr in adr {n }) 
: DFS (S adr1 Unt adr? {n2 ... adr1 {nt ) 
2 PAIRS COMPILE 20VER COMPILE =$ COMPILE ?BRANCH 
ne COMPILE 20ROP 3 ; IMMÉDIATE 


34E 
3 ?PAIRS COMPILE BRANCH MARK 
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SYAP PRESOLVE 2 ; [MMEDIATE 

: ENDCASES (5 adr Ln .... 
2 9PAIRS COMPILE 20R0P BEGIN SP@ CSP @ (à WHILE 
PRESOLVE REPEAT CSP ! ; IMMEDIATE 


Commentaire . : 
Structures de contrôle appliquées 
caractères. Exenple d'utilisation: 

: TEST CHI 


aux. chaines de 


CASE 

CH2 OF$ FAIRE A ENOOFS$ 
CH3 OF$ FAIRE 8 ENDOFS 
ENOCASES 


Éxecute FAIRE A si CHI=CH2 
Execute FAIRE B 51 CH1=CH3 


\ RODS MAJUSC 
, RODS (S adr Lon ... ) 
1- 2DUP + C@ DR DR OUP DUP 1+ R) MOVE R> SAP C! ; 
: MAJUSC (5 adr Lon ... ) 
(DEBUT?) BOUNDS DO I C@ 
CASE ASCII & =0F ASCII E ENDOF 
ASCII è <0F ASCII E ENDOF 
ASCII à =0F ASCII A ENDOF 
ASCII ç =0F ASCII C ENDOF 
ASCII ü =0F ASCII U ENDOF 
NOCASE  ENDCASE 
UPC I C! LOCP ; 


Commentaire a | . 
RODS effectue une rotation circulaire sur une chaine par La 


droite (Met Le dernier caractère devant Le premier). A 
titre de curiosité essayez ce petit programe de 
démonstration: 

40 VCHAIN AS 

AS="JE NE DEFILE" 


: DEFILE 

DARK 50 0 DO A$ 2OUP 25 2 AT ROD$ 200 MS LOOP ; 
MAJUSC transforme Les minuscules en majuscules, accentués 
compris. 


\ De Hu en MINUSC  { sans accentuation 1) 
: MINUSC (S n ... ) 


adr Lo 
(DEBUT?) BOUNDS 
00 I C@ OUP 65 90 BETUEEN 
Au BL OR I C! ELSE OROP THEN 


l 


Commentaire | ÿ 
MINUSC transforme Les caractères majuscules en minuscules 
{sans accentuation bien sûr...) 


\ -BLSUP  -SCAN 
: -BLSUP (S adr Lon ... ] 
(DEBUT?) 2DUP -8L6 OVER (LON) MIN 2DUP ?R ?R VPADS 
BEGIN 2DUP BL SCAN 
2SWAP 2 PICK - 1+ PS 


BL SKIP OUP 0: 
UNTIL 20ROP PADS î- -TRAILING À) Ro !$ ; 


: SCAN (S adr Lon ascii ...adr' Lon' } 
ROT ROT DUP 0 00 
ie 1- C@ 3 PICK ©) 
ELSE LEAVE THEN LOUP 
ROT OROP ; 
Commentaires 


-BLSUP supprime d'une chaîne tous Les espaces superflus ou 
jus comme tels. 

“SCAN réalise un SCAN en commençant par La 
-TRAILING passe-partout) 


fin (comme un 


\ Affiche centré d'une chaine pee C' 
VARIABLE CAR/LIGNE 40 CAR/LIGNE ! 
: € (S adr Lon .... ) 

(DEBUT?) 2QUP -BLSUP DROP OUP C(LON) 
se QUP CAR/LIGNE C@ ? 
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1R OUP CAR/LIGNE C@ + C@ BL = NOT 
IF CARILIGNE C@ BL -SCAN DUP 1- 
IF DROP CAR/LIGNE C@ THEN 
ELSE  CAR/LIGNE CE THEN 
LOUP R) SURP - R OVER + DR 
E* CR R)R) 
REPERT €" | 


Connentaire RC 

CARILIGNE variable servant au mot C', Initialisé à 40, C* 
affiche une chaine en restant equidistant des bords de 
L'écran, sur une Largeur maximale contenue dans CAR/LIGNE. 


{ Ne sont pas incluses au sein de ces écrans Les 
\ définitions de ?COMP et ?PAIRS € Voir FIG-FORTH ) 
\ Les voici: 


: 2C0M 
ALU @ 0= IF ABORT' Sytème non en compilation " THEN ; 
‘ a NOT IF ABORT' Mauvais emboîtement de structure 


t 


Ndlr: Nous avons été obligé, pour des raisons de place de 
modifier La présentation initiale de ce programme afin de 
Le faire tenir dans Les quelques pages encore disponibles 
de ce présent numéro. 


REPONSES: concernant La CL de La totalité de La 
mémoire des systèmes IBM PC et compatibles, TURBO-Forth 
utilise des primitives dont voici résumé brièvement Les 
caractéristiques: 


LC! c seg off --- 
LCA seg off --- € 
L! n Seg off --- 
LE seg off ---n 
LEMOVE  Seg1 aff1 seg2 off2 Long --- 
LEMOVE)  seg1 aff1 seg2 aff2 Long --- 


Nos remerciements à Mr JACCOMARO pour Les définitions de 
ces mots créées pour L'amélioration de FORTHLOG II et 
intégrées à TURBO-Farth. Les mots LCMOVE et  LCMOVE? 
initialement écrits en FORTH ont depuis été réécrits en 
assembleur 4086. 


Attention, il peut être risqué de modifier une zone 
mémoire utilisée par un autre PAR Exemple, sous 
TURBO-Forth, si vous tapez PROGRAM TÜRBO.COM, vous serez à 
nouveau sous Le contrôle de TURBO-Forth, mais dans une 
copie située à un autre endroit de La nénoire, Pour plus 
de clarté, appelons T1 Le joue TURBO Lancé au démarrage 
du système; Vous Lancez T2 à partir de T1; T1 reste en 
mémoire mais vous ne Savez pas où!. L'abandon de T2 par 
BYE vous renvoie à T1. Avec 640k de mémoire, jusqu'à six 
SALE de TURBO peuvent cohabiter en mémoire. Sachant 
que FURBO peut exécuter un ordre depuis MS00S conne suit: 


TURED WORDS 
ou depuis TURBO 
* WORDS" PASS PROGRAM TURBO. COM 


et en version compilée: 


ot .... 
. " WORDS' PASS 
" PROGRAM TURBO.COM" $EXECUTE 


“+ 


je vous Laisse imaginer Les fantastiques possibilités EE 
s'offrent vous en gérant  astucieusement des 
bibliothèques de rautines compilées en FORTH. Je 
LA dans Le prochain nunéro La première routine 
NTER-LOGICIELLE programmée en FORTH: 


- menus déraulants pour programmes .BAT. 
- menus déroulants pour programmes dBASE IIT/1114+. 


sr 


